ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTR Interface Reference

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces ⛓

use pm_fftnr, only: getFFTR
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTR(data(:))
pm_fftnr::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftnr.F90:611
pm_fftnr
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Warning
The condition 1 < size(data) must hold for the corresponding input arguments.
This condition is verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage ⛓

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTR
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CKS
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTR(getFFTF(data))")
32 atad = getFFTR(getFFTF(data))
33 call disp%show("atad = atad / size(atad)")
34 atad = atad / size(atad)
35 call disp%show("atad")
36 call disp%show( atad )
37 call disp%show("reltol = sqrt(epsilon(1._TKC))")
38 reltol = sqrt(epsilon(1._TKC))
39 call disp%show("reltol")
40 call disp%show( reltol )
41 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
42 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
43 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
44 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
45 call disp%skip()
46 end block
47
48 block
49 use pm_kind, only: TKC => CKD
50 real(TKC) :: reltol
51 complex(TKC), allocatable :: data(:), atad(:)
52 call disp%show("lenData = getUnifRand(5, 100)")
53 lenData = getUnifRand(5, 100)
54 call disp%show("lenData")
55 call disp%show( lenData )
56 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
57 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
58 call disp%show("data")
59 call disp%show( data )
60 call disp%skip()
61 call disp%show("atad = getFFTR(getFFTF(data))")
62 atad = getFFTR(getFFTF(data))
63 call disp%show("atad = atad / size(atad)")
64 atad = atad / size(atad)
65 call disp%show("atad")
66 call disp%show( atad )
67 call disp%show("reltol = sqrt(epsilon(1._TKC))")
68 reltol = sqrt(epsilon(1._TKC))
69 call disp%show("reltol")
70 call disp%show( reltol )
71 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
72 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
73 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
74 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
75 call disp%skip()
76 end block
77
78 block
79 use pm_kind, only: TKC => CKH
80 real(TKC) :: reltol
81 complex(TKC), allocatable :: data(:), atad(:)
82 call disp%show("lenData = getUnifRand(5, 100)")
83 lenData = getUnifRand(5, 100)
84 call disp%show("lenData")
85 call disp%show( lenData )
86 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
87 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
88 call disp%show("data")
89 call disp%show( data )
90 call disp%skip()
91 call disp%show("atad = getFFTR(getFFTF(data))")
92 atad = getFFTR(getFFTF(data))
93 call disp%show("atad = atad / size(atad)")
94 atad = atad / size(atad)
95 call disp%show("atad")
96 call disp%show( atad )
97 call disp%show("reltol = sqrt(epsilon(1._TKC))")
98 reltol = sqrt(epsilon(1._TKC))
99 call disp%show("reltol")
100 call disp%show( reltol )
101 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
102 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
103 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
104 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
105 call disp%skip()
106 end block
107
108 block
109 use pm_kind, only: TKC => RKS
110 real(TKC) :: reltol
111 real(TKC), allocatable :: data(:), atad(:)
112 call disp%show("lenData = getUnifRand(5, 100)")
113 lenData = getUnifRand(5, 100)
114 call disp%show("lenData")
115 call disp%show( lenData )
116 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
117 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
118 call disp%show("data")
119 call disp%show( data )
120 call disp%skip()
121 call disp%show("atad = getFFTR(getFFTF(data))")
122 atad = getFFTR(getFFTF(data))
123 call disp%show("atad = atad * 2 / size(atad)")
124 atad = atad * 2 / size(atad)
125 call disp%show("atad")
126 call disp%show( atad )
127 call disp%show("reltol = sqrt(epsilon(1._TKC))")
128 reltol = sqrt(epsilon(1._TKC))
129 call disp%show("reltol")
130 call disp%show( reltol )
131 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
132 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
133 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
134 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
135 call disp%skip()
136 end block
137
138 block
139 use pm_kind, only: TKC => RKD
140 real(TKC) :: reltol
141 real(TKC), allocatable :: data(:), atad(:)
142 call disp%show("lenData = getUnifRand(5, 100)")
143 lenData = getUnifRand(5, 100)
144 call disp%show("lenData")
145 call disp%show( lenData )
146 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
147 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
148 call disp%show("data")
149 call disp%show( data )
150 call disp%skip()
151 call disp%show("atad = getFFTR(getFFTF(data))")
152 atad = getFFTR(getFFTF(data))
153 call disp%show("atad = atad * 2 / size(atad)")
154 atad = atad * 2 / size(atad)
155 call disp%show("atad")
156 call disp%show( atad )
157 call disp%show("reltol = sqrt(epsilon(1._TKC))")
158 reltol = sqrt(epsilon(1._TKC))
159 call disp%show("reltol")
160 call disp%show( reltol )
161 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
162 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
163 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
164 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
165 call disp%skip()
166 end block
167
168 block
169 use pm_kind, only: TKC => RKH
170 real(TKC) :: reltol
171 real(TKC), allocatable :: data(:), atad(:)
172 call disp%show("lenData = getUnifRand(5, 100)")
173 lenData = getUnifRand(5, 100)
174 call disp%show("lenData")
175 call disp%show( lenData )
176 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
177 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
178 call disp%show("data")
179 call disp%show( data )
180 call disp%skip()
181 call disp%show("atad = getFFTR(getFFTF(data))")
182 atad = getFFTR(getFFTF(data))
183 call disp%show("atad = atad * 2 / size(atad)")
184 atad = atad * 2 / size(atad)
185 call disp%show("atad")
186 call disp%show( atad )
187 call disp%show("reltol = sqrt(epsilon(1._TKC))")
188 reltol = sqrt(epsilon(1._TKC))
189 call disp%show("reltol")
190 call disp%show( reltol )
191 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
192 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
193 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
194 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
195 call disp%skip()
196 end block
197 end do
198
199end program example
pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4106
pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618
pm_fftnr::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074
pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:523
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281
pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:477
pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:310
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280
pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:311
pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:308
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462
pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:307
pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205
pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe
4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)
2lenData
3+85
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.97231698, +0.138594031), (+1.36606812, +0.445021987E-1), (+1.41952205, +0.548855841), (+1.02900267, +0.550171554), (+1.26242423, +0.838460147), (+1.32677889, +0.123140216), (+1.65152824, +0.809522986), (+1.66245902, +0.795240879), (+1.01281071, +0.163468063), (+1.88401508, +0.137821198), (+1.87615490, +0.355162144), (+1.78330326, +0.439252913), (+1.74621868, +0.740484893), (+1.95895910, +0.243585527), (+1.18703878, +0.900837839), (+1.18564606, +0.636464119), (+1.22762513, +0.979174554), (+1.42927361, +0.636000991), (+1.60171890, +0.346340895), (+1.49671674, +0.111742079), (+1.97439051, +0.182571292), (+1.30159175, +0.951364696), (+1.57422829, +0.196819663), (+1.64531171, +0.365746617), (+1.35686719, +0.815348625), (+1.02966952, +0.388231277E-1), (+1.30435455, +0.359734476), (+1.37985802, +0.142873824), (+1.12890911, +0.205064893), (+1.31814170, +0.591471553), (+1.89818919, +0.334985197), (+1.71457553, +0.108339012), (+1.39632070, +0.703886211), (+1.12367916, +0.238157988), (+1.96535468, +0.855476975), (+1.84666061, +0.296368897), (+1.76835811, +0.896248162), (+1.70457220, +0.384384930), (+1.71581709, +0.418092430), (+1.44445813, +0.197146595), (+1.95709729, +0.818897128), (+1.67019773, +0.783468306), (+1.28871810, +0.294932067), (+1.50304723, +0.912776113), (+1.83677745, +0.713367641), (+1.51792598, +0.457236588), (+1.03518629, +0.180474460), (+1.15966702, +0.449862182), (+1.19396794, +0.209292710), (+1.38649511, +0.617442310), (+1.89005816, +0.869802833E-1), (+1.48105848, +0.470792651), (+1.59997940, +0.299513876), (+1.76470995, +0.749432385), (+1.32185674, +0.710041404), (+1.91623974, +0.638262689), (+1.53772259, +0.600955844), (+1.47614622, +0.962422431), (+1.37155700, +0.784783721), (+1.34413385, +0.743524432E-1), (+1.55558276, +0.364663839), (+1.27716088, +0.701828182), (+1.32627773, +0.269366086), (+1.91057456, +0.900669038), (+1.43442655, +0.156964123), (+1.55542517, +0.302933574), (+1.14837170, +0.134877324), (+1.55194354, +0.773294210), (+1.23263001, +0.968428016), (+1.60174704, +0.258947134), (+1.27074337, +0.714045763), (+1.61149836, +0.542873144E-1), (+1.73919010, +0.196906388), (+1.98828387, +0.978452861), (+1.87157583, +0.801866591), (+1.53492832, +0.477164447), (+1.04853797, +0.802202582), (+1.11055577, +0.837855458), (+1.34134245, +0.694121480), (+1.37677240, +0.144285202), (+1.75495994, +0.402529836), (+1.45017910, +0.502766192), (+1.52875948, +0.631596804), (+1.67918420, +0.681230426), (+1.61862421, +0.843552470)
7
8atad = getFFTR(getFFTF(data))
9atad = atad / size(atad)
10atad
11(+1.97231698, +0.138594046), (+1.36606824, +0.445023328E-1), (+1.41952181, +0.548855960), (+1.02900243, +0.550171733), (+1.26242399, +0.838460028), (+1.32677865, +0.123140171), (+1.65152824, +0.809522867), (+1.66245866, +0.795240819), (+1.01281095, +0.163468003), (+1.88401508, +0.137821376), (+1.87615502, +0.355162352), (+1.78330314, +0.439253122), (+1.74621832, +0.740484953), (+1.95895910, +0.243585557), (+1.18703878, +0.900837898), (+1.18564606, +0.636464238), (+1.22762501, +0.979174554), (+1.42927361, +0.636001050), (+1.60171902, +0.346341163), (+1.49671662, +0.111742198), (+1.97439027, +0.182571322), (+1.30159175, +0.951364696), (+1.57422805, +0.196819723), (+1.64531147, +0.365746588), (+1.35686719, +0.815348744), (+1.02966940, +0.388232768E-1), (+1.30435443, +0.359734714), (+1.37985802, +0.142874151), (+1.12890911, +0.205064893), (+1.31814146, +0.591471791), (+1.89818907, +0.334985405), (+1.71457541, +0.108339250), (+1.39632082, +0.703886092), (+1.12367916, +0.238157868), (+1.96535480, +0.855476499), (+1.84666049, +0.296368718), (+1.76835799, +0.896247745), (+1.70457196, +0.384384811), (+1.71581721, +0.418092102), (+1.44445801, +0.197146371), (+1.95709717, +0.818897009), (+1.67019749, +0.783468366), (+1.28871810, +0.294932008), (+1.50304723, +0.912775934), (+1.83677745, +0.713367581), (+1.51792574, +0.457236499), (+1.03518629, +0.180474326), (+1.15966702, +0.449862003), (+1.19396806, +0.209292635), (+1.38649511, +0.617442131), (+1.89005804, +0.869800150E-1), (+1.48105860, +0.470792443), (+1.59997916, +0.299513906), (+1.76470995, +0.749432206), (+1.32185674, +0.710041046), (+1.91623938, +0.638262272), (+1.53772235, +0.600955725), (+1.47614574, +0.962422252), (+1.37155688, +0.784783602), (+1.34413385, +0.743522346E-1), (+1.55558252, +0.364663869), (+1.27716064, +0.701828122), (+1.32627773, +0.269365907), (+1.91057420, +0.900668859), (+1.43442655, +0.156964138), (+1.55542529, +0.302933514), (+1.14837170, +0.134877205), (+1.55194354, +0.773293853), (+1.23263001, +0.968427956), (+1.60174704, +0.258947074), (+1.27074349, +0.714045525), (+1.61149812, +0.542872548E-1), (+1.73918986, +0.196906507), (+1.98828363, +0.978452981), (+1.87157571, +0.801866531), (+1.53492820, +0.477164239), (+1.04853761, +0.802202702), (+1.11055565, +0.837855458), (+1.34134257, +0.694121599), (+1.37677240, +0.144285232), (+1.75495970, +0.402529776), (+1.45017910, +0.502766192), (+1.52875960, +0.631596446), (+1.67918408, +0.681230009), (+1.61862397, +0.843552470), (+0.119209290E-6, -0.119209290E-6), (+0.476837158E-6, +0.119209290E-6), (+0.357627869E-6, +0.00000000), (+0.119209290E-6, -0.208616257E-6), (-0.119209290E-6, -0.327825546E-6), (+0.596046448E-7, -0.178813934E-6), (+0.178813934E-6, -0.156462193E-6), (-0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, -0.208616257E-6), (+0.178813934E-6, -0.298023224E-7), (+0.119209290E-6, +0.856816769E-7), (+0.596046448E-7, +0.596046448E-7), (+0.119209290E-6, +0.745058060E-8), (+0.119209290E-6, +0.387430191E-6), (+0.119209290E-6, +0.178813934E-6), (-0.596046448E-7, +0.238418579E-6), (-0.596046448E-7, +0.178813934E-6), (+0.119209290E-6, +0.387430191E-6), (+0.00000000, +0.432133675E-6), (-0.119209290E-6, +0.596046448E-7), (+0.596046448E-7, -0.894069672E-7), (+0.119209290E-6, +0.596046448E-7), (+0.00000000, +0.596046448E-7), (-0.238418579E-6, +0.208616257E-6), (+0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.193715096E-6), (+0.178813934E-6, +0.149011612E-6), (+0.596046448E-7, -0.447034836E-7), (+0.357627869E-6, +0.596046448E-7), (+0.298023224E-6, +0.387430191E-6), (+0.238418579E-6, +0.208616257E-6), (+0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.178813934E-6), (+0.238418579E-6, +0.357627869E-6), (+0.357627869E-6, +0.238418579E-6), (+0.238418579E-6, -0.298023224E-7), (+0.596046448E-7, -0.208616257E-6), (+0.119209290E-6, +0.149011612E-6), (+0.357627869E-6, +0.335276127E-7), (+0.00000000, +0.119209290E-6), (+0.178813934E-6, -0.894069672E-7), (+0.119209290E-6, +0.312924385E-6), (+0.178813934E-6, +0.298023224E-7)
12reltol = sqrt(epsilon(1._TKC))
13reltol
14+0.345266977E-3
15isClose(data, atad(1:size(data)), reltol = reltol)
16T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
17call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
18
19lenData = getUnifRand(5, 100)
20lenData
21+86
22data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
23data
24(+1.0465759879526475, +0.80365043416219839), (+1.9302503955337706, +0.47372342826755376), (+1.8880858014508191, +0.72759165129671433), (+1.5601539957902404, +0.12773224802206584), (+1.2097077104748553, +0.55696790887264358), (+1.4316082865191855, +0.21094721532883864), (+1.7458788238862333, +0.32055164077794918), (+1.4634871758085040, +0.17840173914657620), (+1.0699879645659292, +0.10150656332400199), (+1.9388241848770993, +0.77743556049887785), (+1.7131154505374444, +0.41213321123936864), (+1.6483302577385697, +0.92823492383296236), (+1.7394611322521909, +0.84592037349206683), (+1.9644585442397635, +0.69258283539787557), (+1.7359309414119535, +0.87260946139372209), (+1.0533422821437886, +0.49691014891073160), (+1.7118052902605345, +0.44499574849545032), (+1.6687388347149992, +0.30898262374696306), (+1.2107305944823548, +0.41923744457773193), (+1.3867941857513304, +0.93567365510076039), (+1.2865170315673846, +0.20012129968183823), (+1.0373901661566904, +0.21253068849745871), (+1.8036563958253091, +0.31237918717462942), (+1.7705663754252949, +0.93475365611741601), (+1.8115799474618932, +0.15844232231434996), (+1.6795454363482618, +0.76912481418901746), (+1.3878904963952072, +0.80812647513858860E-1), (+1.3770132769053136, +0.74530732401900102), (+1.8814403941315465, +0.98269638428456474), (+1.0501367746896715, +0.62745986101602258), (+1.7874889243951235, +0.80638096688652994), (+1.3046047147798947, +0.18251211776411091), (+1.2517976125170329, +0.55349881951316959E-1), (+1.8963079279703905, +0.81963645028283016), (+1.4544586882743458, +0.17657373203485560), (+1.8100945050392521, +0.32511681303587769), (+1.6310629517722524, +0.78255675744247721), (+1.2344344636199387, +0.78262649078171409), (+1.8111129026198118, +0.51550124135465780E-1), (+1.8650833908583371, +0.48642452288387550), (+1.5462398394000068, +0.23662179418153917), (+1.1120748640628435, +0.65629383616734094E-1), (+1.4135667493404762, +0.61609614803414747), (+1.3600264993949103, +0.41941805520793629), (+1.2245664746768221, +0.22438064861045159E-1), (+1.0905247017464208, +0.34493262129105262), (+1.0103904049212713, +0.52025338445817115), (+1.2286578717876746, +0.84241357613583912), (+1.5413177128053359, +0.60513385758576566E-1), (+1.7371470771572541, +0.90165595033423662), (+1.9776251893698547, +0.11535672546033648), (+1.4958026249820628, +0.21490084780227980), (+1.7182557998669545, +0.83278913350936823), (+1.3552775595725033, +0.34318622058843506), (+1.3059385080549100, +0.73435493885888892), (+1.4991639880857108, +0.99465339230429028), (+1.4482817693052654, +0.47950961207186671), (+1.3132984227592197, +0.82681537094556334), (+1.5503465615410417, +0.47174060958918518), (+1.2644209802052764, +0.43741827396574551), (+1.0621855405088660, +0.78329106729201425), (+1.0905093792804896, +0.41980828159382455), (+1.5788186951865273, +0.82642334872209289E-1), (+1.3028645177607894, +0.10236835750821771), (+1.7418530675798922, +0.69876969082052354), (+1.2741337020061496, +0.39067668642004705), (+1.5167117996315622, +0.31931214791858276), (+1.9455009834414470, +0.71283240522692370), (+1.3942187411243978, +0.89726007861957569), (+1.1048718099432757, +0.72521015612898254), (+1.4844668470976874, +0.74510580756314404), (+1.2399509267709936, +0.90808132419088372), (+1.8970290907639766, +0.35188017334382304), (+1.8115629039166579, +0.82525497406047388), (+1.3734402437781954, +0.47779982281480327), (+1.2554885108724114, +0.85833001022401234), (+1.5583147815015450, +0.51214981821223715), (+1.2251121515593346, +0.63617923997104153), (+1.0779236202933451, +0.72480784630345751), (+1.5377010816506165, +0.33327832750557418), (+1.6618193908326120, +0.32491318392195667), (+1.9234279230475808, +0.68096249532975850), (+1.8709968003175634, +0.18432759154254352), (+1.3404485465693778, +0.65723237739621077), (+1.4618599651497872, +0.99866171220845623E-1), (+1.0652765439349745, +0.73870543782151799)
25
26atad = getFFTR(getFFTF(data))
27atad = atad / size(atad)
28atad
29(+1.0465759879526477, +0.80365043416219861), (+1.9302503955337711, +0.47372342826755393), (+1.8880858014508193, +0.72759165129671466), (+1.5601539957902406, +0.12773224802206617), (+1.2097077104748553, +0.55696790887264358), (+1.4316082865191855, +0.21094721532883898), (+1.7458788238862333, +0.32055164077794929), (+1.4634871758085042, +0.17840173914657670), (+1.0699879645659296, +0.10150656332400201), (+1.9388241848770993, +0.77743556049887863), (+1.7131154505374449, +0.41213321123936902), (+1.6483302577385699, +0.92823492383296291), (+1.7394611322521907, +0.84592037349206717), (+1.9644585442397635, +0.69258283539787591), (+1.7359309414119535, +0.87260946139372231), (+1.0533422821437883, +0.49691014891073199), (+1.7118052902605347, +0.44499574849545054), (+1.6687388347149992, +0.30898262374696345), (+1.2107305944823552, +0.41923744457773188), (+1.3867941857513304, +0.93567365510076073), (+1.2865170315673842, +0.20012129968183845), (+1.0373901661566904, +0.21253068849745904), (+1.8036563958253093, +0.31237918717462931), (+1.7705663754252949, +0.93475365611741601), (+1.8115799474618934, +0.15844232231434993), (+1.6795454363482618, +0.76912481418901757), (+1.3878904963952072, +0.80812647513859040E-1), (+1.3770132769053136, +0.74530732401900113), (+1.8814403941315463, +0.98269638428456463), (+1.0501367746896710, +0.62745986101602247), (+1.7874889243951233, +0.80638096688652972), (+1.3046047147798947, +0.18251211776411097), (+1.2517976125170331, +0.55349881951316973E-1), (+1.8963079279703907, +0.81963645028282994), (+1.4544586882743460, +0.17657373203485544), (+1.8100945050392523, +0.32511681303587769), (+1.6310629517722530, +0.78255675744247710), (+1.2344344636199387, +0.78262649078171398), (+1.8111129026198121, +0.51550124135465503E-1), (+1.8650833908583371, +0.48642452288387511), (+1.5462398394000072, +0.23662179418153900), (+1.1120748640628435, +0.65629383616733955E-1), (+1.4135667493404762, +0.61609614803414736), (+1.3600264993949103, +0.41941805520793629), (+1.2245664746768221, +0.22438064861045159E-1), (+1.0905247017464208, +0.34493262129105262), (+1.0103904049212717, +0.52025338445817071), (+1.2286578717876746, +0.84241357613583889), (+1.5413177128053364, +0.60513385758576538E-1), (+1.7371470771572541, +0.90165595033423629), (+1.9776251893698547, +0.11535672546033615), (+1.4958026249820628, +0.21490084780227964), (+1.7182557998669548, +0.83278913350936801), (+1.3552775595725031, +0.34318622058843473), (+1.3059385080549104, +0.73435493885888836), (+1.4991639880857108, +0.99465339230428995), (+1.4482817693052656, +0.47950961207186682), (+1.3132984227592197, +0.82681537094556301), (+1.5503465615410417, +0.47174060958918490), (+1.2644209802052764, +0.43741827396574506), (+1.0621855405088663, +0.78329106729201392), (+1.0905093792804896, +0.41980828159382411), (+1.5788186951865271, +0.82642334872209344E-1), (+1.3028645177607894, +0.10236835750821746), (+1.7418530675798924, +0.69876969082052343), (+1.2741337020061501, +0.39067668642004710), (+1.5167117996315627, +0.31931214791858276), (+1.9455009834414470, +0.71283240522692359), (+1.3942187411243983, +0.89726007861957546), (+1.1048718099432757, +0.72521015612898254), (+1.4844668470976874, +0.74510580756314393), (+1.2399509267709938, +0.90808132419088361), (+1.8970290907639766, +0.35188017334382327), (+1.8115629039166579, +0.82525497406047410), (+1.3734402437781954, +0.47779982281480332), (+1.2554885108724114, +0.85833001022401201), (+1.5583147815015448, +0.51214981821223715), (+1.2251121515593346, +0.63617923997104120), (+1.0779236202933453, +0.72480784630345751), (+1.5377010816506169, +0.33327832750557390), (+1.6618193908326120, +0.32491318392195656), (+1.9234279230475808, +0.68096249532975839), (+1.8709968003175637, +0.18432759154254347), (+1.3404485465693781, +0.65723237739621032), (+1.4618599651497872, +0.99866171220845443E-1), (+1.0652765439349743, +0.73870543782151754), (+0.66613381477509392E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.33306690738754696E-15, -0.27755575615628914E-16), (+0.22204460492503131E-15, -0.55511151231257827E-15), (+0.11102230246251565E-15, +0.13877787807814457E-16), (+0.33306690738754696E-15, -0.44408920985006262E-15), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.88817841970012523E-15, -0.16653345369377348E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.66613381477509392E-15, -0.33306690738754696E-15), (+0.22204460492503131E-15, +0.20469737016526324E-15), (+0.0000000000000000, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.0000000000000000), (+0.0000000000000000, +0.38857805861880479E-15), (+0.77715611723760958E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.55511151231257827E-16), (-0.22204460492503131E-15, -0.83266726846886741E-16), (+0.0000000000000000, +0.38857805861880479E-15), (+0.44408920985006262E-15, -0.19428902930940239E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.13877787807814457E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.0000000000000000), (+0.22204460492503131E-15, +0.52735593669694936E-15), (+0.33306690738754696E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.55511151231257827E-15), (+0.33306690738754696E-15, +0.38857805861880479E-15), (+0.0000000000000000, +0.49960036108132044E-15), (+0.55511151231257827E-15, +0.30531133177191805E-15), (+0.33306690738754696E-15, +0.72164496600635175E-15), (+0.33306690738754696E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, -0.83266726846886741E-16), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, +0.49960036108132044E-15), (+0.66613381477509392E-15, +0.44408920985006262E-15), (+0.0000000000000000, +0.83266726846886741E-15), (+0.77715611723760958E-15, +0.86042284408449632E-15), (+0.33306690738754696E-15, +0.99226182825873366E-15), (+0.55511151231257827E-15, +0.75633943552588789E-15)
30reltol = sqrt(epsilon(1._TKC))
31reltol
32+0.14901161193847656E-7
33isClose(data, atad(1:size(data)), reltol = reltol)
34T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
35call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
36
37lenData = getUnifRand(5, 100)
38lenData
39+46
40data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
41data
42(+1.46366751253040178696488863089860265, +0.979176371794080866832465138159051296), (+1.93333540105446401499717334362390496, +0.192443667061177896584120256948242555), (+1.15035449804964501184552608045269253, +0.606418077975335454600654346354059509), (+1.71835899690349471006324228736846428, +0.918149299344647446739858927374470016), (+1.72257337667197532698395203000129541, +0.436930311966111113516441880886889830), (+1.17190449635512563180323447561404457, +0.742303239825375289505999886093613087), (+1.83621529648348163935088684789382943, +0.171132940473133270624233083577767472), (+1.08495168225286626995757705610820333, +0.189034615684928712048419395118942190), (+1.43897824451521407152203251337890246, +0.758473399045686581912254829325186139E-1), (+1.58480552777078918829859204517115575, +0.266045976779026355173006909136655781), (+1.77181062891627720707201485860656154, +0.142289574508915751691832104822727915), (+1.58625288719770403568123390846946935, +0.561468430330105444243386217460503458), (+1.17948477483585335049559061908451864, +0.827139046827335089654784423676810304), (+1.16075879905329528294955808646993384, +0.728604513773931654904561788135000357), (+1.37392541612036728981291918243783031, +0.950046580217074310882808630573377162), (+1.20396468625797352857095663335843374, +0.337998901300584798375337985760251954), (+1.21633578687609474296631857550194001, +0.282881047442123461462162617835583185), (+1.95715952716192151634189193303045281, +0.479516527722374746202854160146518013), (+1.05249994351189378717991254957253534, +0.569071245674510180034721116946128114), (+1.37042937868327427569119375666218907, +0.867347510626954102913900294923298463), (+1.26082601510122353604907187014106157, +0.437364884095927360408357754433160089), (+1.94451106120053559931416915117739420, +0.555598191034524009127447059785834283), (+1.90485812306955245493342529568724955, +0.715280993646326567659342572017185067), (+1.00401716919060935728645535986882787, +0.305391326439684197387399194535131099), (+1.86577174457449705091404600552515930, +0.710256419401363120828248180891251157), (+1.37446235871400186297845094739089150, +0.627806553575414413164890488482545226), (+1.88777397816584288858165451914746900, +0.850531639355342319828386550385712560), (+1.97875514256632438161809384036505069, +0.496384031499090987845509017106769458), (+1.55113107060139135926889211675264445, +0.974996941711428232616905366758476406), (+1.88302052260602174998664927139504472, +0.336599867247144150008981377049915435), (+1.63958044412136141637761655898755010, +0.771456187525973699925065703477265007), (+1.53219530366235297007135769670637353, +0.781991269390131033618737778595570139), (+1.22066610370061202150081159266220160, +0.137319436265929815646750068738523421), (+1.20368971394337561367234883573095796, +0.667772643197397737555528650277197072), (+1.02676403775850086247273151790003953, +0.455532173563405579542990660700743810), (+1.19147953614785592975018105162163973, +0.427393272098138356848169259778949835), (+1.80890616709666175751492968037220635, +0.157388882132295571645620762402857482), (+1.10105832926465452543646238253962195, +0.748756002598893460791697438840529082), (+1.33416322529222442280203431005472258, +0.961941118025725172732417126122870216E-1), (+1.00940636241697183746066711456897183, +0.677894863934107098747981944821526089), (+1.76437523523958500379048114275785091, +0.230229765974942929904898219731851576), (+1.85130778711736150534303281778959223, +0.281531754385557915199268441744628283), (+1.04520054000406908539477032500082121, +0.403729420141386933372784132914398972), (+1.15971075187237635824741813088900163, +0.328545859060386288450649489713647242), (+1.67948928250695892683497200378901215, +0.838359473721368976101022238336904872), (+1.17273015797375472410105417560635736, +0.366352090239690095927256209860049405)
43
44atad = getFFTR(getFFTF(data))
45atad = atad / size(atad)
46atad
47(+1.46366751253040178696488863089860208, +0.979176371794080866832465138159051489), (+1.93333540105446401499717334362390535, +0.192443667061177896584120256948242483), (+1.15035449804964501184552608045269214, +0.606418077975335454600654346354059702), (+1.71835899690349471006324228736846428, +0.918149299344647446739858927374470305), (+1.72257337667197532698395203000129579, +0.436930311966111113516441880886889734), (+1.17190449635512563180323447561404476, +0.742303239825375289505999886093612894), (+1.83621529648348163935088684789382943, +0.171132940473133270624233083577767351), (+1.08495168225286626995757705610820353, +0.189034615684928712048419395118941997), (+1.43897824451521407152203251337890227, +0.758473399045686581912254829325187944E-1), (+1.58480552777078918829859204517115575, +0.266045976779026355173006909136655925), (+1.77181062891627720707201485860656134, +0.142289574508915751691832104822728131), (+1.58625288719770403568123390846946935, +0.561468430330105444243386217460503650), (+1.17948477483585335049559061908451864, +0.827139046827335089654784423676810593), (+1.16075879905329528294955808646993365, +0.728604513773931654904561788135000357), (+1.37392541612036728981291918243783012, +0.950046580217074310882808630573377451), (+1.20396468625797352857095663335843394, +0.337998901300584798375337985760252099), (+1.21633578687609474296631857550194001, +0.282881047442123461462162617835583281), (+1.95715952716192151634189193303045301, +0.479516527722374746202854160146517917), (+1.05249994351189378717991254957253515, +0.569071245674510180034721116946128211), (+1.37042937868327427569119375666218907, +0.867347510626954102913900294923298270), (+1.26082601510122353604907187014106157, +0.437364884095927360408357754433159896), (+1.94451106120053559931416915117739420, +0.555598191034524009127447059785834090), (+1.90485812306955245493342529568724936, +0.715280993646326567659342572017184875), (+1.00401716919060935728645535986882825, +0.305391326439684197387399194535131099), (+1.86577174457449705091404600552515892, +0.710256419401363120828248180891251060), (+1.37446235871400186297845094739089170, +0.627806553575414413164890488482545226), (+1.88777397816584288858165451914746881, +0.850531639355342319828386550385712175), (+1.97875514256632438161809384036505088, +0.496384031499090987845509017106769265), (+1.55113107060139135926889211675264445, +0.974996941711428232616905366758476406), (+1.88302052260602174998664927139504511, +0.336599867247144150008981377049915435), (+1.63958044412136141637761655898754990, +0.771456187525973699925065703477264815), (+1.53219530366235297007135769670637372, +0.781991269390131033618737778595569946), (+1.22066610370061202150081159266220121, +0.137319436265929815646750068738523565), (+1.20368971394337561367234883573095834, +0.667772643197397737555528650277197072), (+1.02676403775850086247273151790003953, +0.455532173563405579542990660700743954), (+1.19147953614785592975018105162163973, +0.427393272098138356848169259778949691), (+1.80890616709666175751492968037220655, +0.157388882132295571645620762402857578), (+1.10105832926465452543646238253962195, +0.748756002598893460791697438840529275), (+1.33416322529222442280203431005472220, +0.961941118025725172732417126122870457E-1), (+1.00940636241697183746066711456897202, +0.677894863934107098747981944821526282), (+1.76437523523958500379048114275785072, +0.230229765974942929904898219731851479), (+1.85130778711736150534303281778959242, +0.281531754385557915199268441744628139), (+1.04520054000406908539477032500082121, +0.403729420141386933372784132914398683), (+1.15971075187237635824741813088900201, +0.328545859060386288450649489713646857), (+1.67948928250695892683497200378901215, +0.838359473721368976101022238336905257), (+1.17273015797375472410105417560635717, +0.366352090239690095927256209860049453), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (+0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.722223729145213444895991728469347744E-34), (+0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (+0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.722223729145213444895991728469347744E-34), (+0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33), (+0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, -0.361111864572606722447995864234673872E-33), (-0.577778983316170755916793382775478196E-33, +0.288889491658085377958396691387739098E-33), (+0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33)
48reltol = sqrt(epsilon(1._TKC))
49reltol
50+0.138777878078144567552953958511352539E-16
51isClose(data, atad(1:size(data)), reltol = reltol)
52T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
53call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
54
55lenData = getUnifRand(5, 100)
56lenData
57+85
58data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
59data
60+1.71054864, +1.91172338, +1.90204310, +1.52412295, +1.90390396, +1.41470075, +1.34112012, +1.44595551, +1.25420046, +1.33704686, +1.11103523, +1.50109673, +1.72938347, +1.66801238, +1.61966228, +1.78435695, +1.42630649, +1.73609424, +1.97646284, +1.15987790, +1.00656438, +1.39117956, +1.51902699, +1.16283727, +1.76087034, +1.91747856, +1.23187685, +1.27574205, +1.91909802, +1.94987547, +1.12229729, +1.74641871, +1.03856599, +1.35445440, +1.05094624, +1.62548137, +1.58299410, +1.53009391, +1.49871492, +1.47243476, +1.66343641, +1.19176340, +1.37552321, +1.58978772, +1.87202692, +1.71163130, +1.01435459, +1.83948934, +1.80093980, +1.01355267, +1.39590120, +1.58379757, +1.77698481, +1.51983857, +1.53884554, +1.42828453, +1.76661026, +1.63257158, +1.72659063, +1.05572486, +1.87251782, +1.42251182, +1.93550551, +1.24577498, +1.46829128, +1.43321609, +1.75776756, +1.57425094, +1.19415557, +1.10778427, +1.42294788, +1.89816999, +1.89203787, +1.83802676, +1.82284737, +1.78340733, +1.09800267, +1.03604436, +1.02550387, +1.92369032, +1.02739704, +1.82832491, +1.94528961, +1.52446699, +1.64635563
61
62atad = getFFTR(getFFTF(data))
63atad = atad * 2 / size(atad)
64atad
65+1.71054876, +1.91172338, +1.90204275, +1.52412283, +1.90390396, +1.41470063, +1.34111977, +1.44595540, +1.25420046, +1.33704686, +1.11103535, +1.50109696, +1.72938359, +1.66801238, +1.61966228, +1.78435695, +1.42630649, +1.73609424, +1.97646272, +1.15987802, +1.00656414, +1.39117980, +1.51902676, +1.16283715, +1.76086998, +1.91747892, +1.23187673, +1.27574205, +1.91909766, +1.94987571, +1.12229717, +1.74641871, +1.03856623, +1.35445416, +1.05094600, +1.62548113, +1.58299398, +1.53009367, +1.49871492, +1.47243452, +1.66343641, +1.19176340, +1.37552309, +1.58978748, +1.87202680, +1.71163106, +1.01435459, +1.83948898, +1.80093980, +1.01355243, +1.39590096, +1.58379734, +1.77698445, +1.51983845, +1.53884530, +1.42828441, +1.76660991, +1.63257134, +1.72659063, +1.05572486, +1.87251759, +1.42251158, +1.93550515, +1.24577498, +1.46829140, +1.43321586, +1.75776732, +1.57425058, +1.19415569, +1.10778415, +1.42294836, +1.89816988, +1.89203787, +1.83802676, +1.82284737, +1.78340745, +1.09800279, +1.03604436, +1.02550411, +1.92369068, +1.02739716, +1.82832456, +1.94528973, +1.52446675, +1.64635563, +0.298023224E-6, +0.536441803E-6, +0.238418579E-6, +0.357627869E-6, -0.357627869E-6, +0.357627869E-6, -0.178813934E-6, +0.417232513E-6, +0.00000000, -0.119209290E-6, +0.178813934E-6, +0.238418579E-6, -0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.298023224E-6, +0.00000000, +0.357627869E-6, +0.178813934E-6, +0.119209290E-6, +0.00000000, +0.596046448E-7, +0.238418579E-6, +0.298023224E-6, -0.119209290E-6, +0.238418579E-6, +0.476837158E-6, +0.596046448E-7, +0.238418579E-6, +0.238418579E-6, +0.596046448E-7, +0.357627869E-6, +0.00000000, +0.417232513E-6, +0.417232513E-6, +0.119209290E-6, +0.298023224E-6, +0.357627869E-6, +0.536441803E-6, +0.357627869E-6, -0.298023224E-6, +0.298023224E-6
66reltol = sqrt(epsilon(1._TKC))
67reltol
68+0.345266977E-3
69isClose(data, atad(1:size(data)), reltol = reltol)
70T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
71call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
72
73lenData = getUnifRand(5, 100)
74lenData
75+56
76data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
77data
78+1.5427748288706911, +1.2385503709641030, +1.3692167285514469, +1.5947892159081063, +1.1617768871031240, +1.7154206853731540, +1.1867171977864874, +1.1314006645637558, +1.6412838814907986, +1.3168097388031408, +1.0979674788354379, +1.1984403020001086, +1.2357535669218951, +1.2878165004541773, +1.0351159845911746, +1.6676807822901756, +1.9344879569991325, +1.5367550962702596, +1.5861819391991063, +1.1562904179535891, +1.5144152788513487, +1.6970687789387018, +1.4785942724444019, +1.9820884298007977, +1.3641258600868515, +1.2076557239020143, +1.9636545601073738, +1.8074815248864806, +1.0401173932035945, +1.3030442075045525, +1.7388023531215917, +1.1659441593604136, +1.2528681539392998, +1.4805759967511172, +1.9493417241207016, +1.2122390205183904, +1.4140428810042902, +1.3373060066940088, +1.2478734000091103, +1.3042124266541688, +1.5295455855951219, +1.9352537269097669, +1.7577763378882501, +1.1954709314627308, +1.1187195441793469, +1.0287073239851545, +1.4948432009447101, +1.2410515157131170, +1.3205007124356078, +1.7500653197428369, +1.7929995193879047, +1.2495126600646642, +1.6361802320121166, +1.2935361512116261, +1.4871047547290761, +1.1578064981652765
79
80atad = getFFTR(getFFTF(data))
81atad = atad * 2 / size(atad)
82atad
83+1.5427748288706906, +1.2385503709641030, +1.3692167285514463, +1.5947892159081070, +1.1617768871031240, +1.7154206853731540, +1.1867171977864877, +1.1314006645637564, +1.6412838814907986, +1.3168097388031408, +1.0979674788354379, +1.1984403020001086, +1.2357535669218953, +1.2878165004541773, +1.0351159845911744, +1.6676807822901756, +1.9344879569991322, +1.5367550962702596, +1.5861819391991059, +1.1562904179535891, +1.5144152788513487, +1.6970687789387016, +1.4785942724444017, +1.9820884298007979, +1.3641258600868515, +1.2076557239020140, +1.9636545601073736, +1.8074815248864802, +1.0401173932035945, +1.3030442075045525, +1.7388023531215913, +1.1659441593604134, +1.2528681539392996, +1.4805759967511172, +1.9493417241207009, +1.2122390205183904, +1.4140428810042902, +1.3373060066940086, +1.2478734000091103, +1.3042124266541693, +1.5295455855951219, +1.9352537269097667, +1.7577763378882498, +1.1954709314627308, +1.1187195441793472, +1.0287073239851547, +1.4948432009447099, +1.2410515157131172, +1.3205007124356078, +1.7500653197428369, +1.7929995193879043, +1.2495126600646642, +1.6361802320121166, +1.2935361512116261, +1.4871047547290759, +1.1578064981652767, +0.44408920985006262E-15, +0.22204460492503131E-15, +0.66613381477509392E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.99920072216264089E-15, +0.88817841970012523E-15
84reltol = sqrt(epsilon(1._TKC))
85reltol
86+0.14901161193847656E-7
87isClose(data, atad(1:size(data)), reltol = reltol)
88T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
89call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
90
91lenData = getUnifRand(5, 100)
92lenData
93+94
94data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
95data
96+1.24591899724879246830818744654060218, +1.32866300531983482816183933254044652, +1.80259744946296910578116167124641520, +1.81122107506817312767061952384752355, +1.75215211194694047437732692592345513, +1.81860277039882938664324112337687038, +1.92846502682341232762209223734835219, +1.37472236909297704290502576021146470, +1.15334582795563064959469352568000619, +1.31788860747016749333669551656762640, +1.32019633055701172843728163928928721, +1.68977922690448026410350494334984582, +1.33343986264130854327048122643661680, +1.10210054004256178500430059696265088, +1.08996063296572323136180269634655687, +1.20624587914280169523036114238409039, +1.69230068852971630621654465508236090, +1.62598394841284992537594678821042700, +1.98404359947314297610627069919633278, +1.79822941630314754609739453572054608, +1.03342872706003479744367744196248545, +1.09278672964119215125607580842932033, +1.87363704412180705346106431811360680, +1.26079868336084918027890149268323193, +1.60268024343447018113487900527431323, +1.54114198216390507236505998882727485, +1.47145938374505747852998414903966380, +1.08927332381666012349346216326899570, +1.49308428738498103075022137834817277, +1.46018627935651864913794100123668776, +1.72463719733385174595106461279338217, +1.75896282314199993700451593981576937, +1.94823757665576857816732504100704932, +1.11195904482842387934309370654198716, +1.20505517858262317920435377621673277, +1.91113619478611062737655361820504792, +1.67216495360487756451949590698429157, +1.16755388199491734082570709800444594, +1.64745045194324043161979969840850269, +1.50626946373222913334384167191629134, +1.32136019490880195413170418425603158, +1.89010624001056328721947470431810412, +1.42303490935108988561019399306699990, +1.49785445182469774580404067437026281, +1.97942045452892756568015621609900175, +1.52269352384177223336061163621844610, +1.67463377772792135907572751283215594, +1.33356981718326987582827696445137131, +1.68434671344316858650718887670039541, +1.01057536149545953042480857532680828, +1.34780583297601985027235204958428736, +1.74201115555528103755327216572548447, +1.51036776216985027646819861343980856, +1.29810722694740467462380888242329966, +1.10183927516612323923831646784402615, +1.48830556717921017660341524356469168, +1.54985838707339604141634827683174031, +1.73894526274494046739467378033025881, +1.86665019395803298616260685490013511, +1.90242276159791853292637878927363119, +1.64683838874665564769477630872962018, +1.07525791405934382370218349383222412, +1.07151129064680888251367638835349739, +1.40711820829781715719718841707843954, +1.97513637959176496322755531276477816, +1.71881440812713709786598408918084469, +1.66091358241765742357126260956716618, +1.24362690728470356133840731182827898, +1.50847256966725960204661851192737897, +1.23263163520010581325913373696900516, +1.95750755207000864230983447143864194, +1.23312717053838746695559991613453320, +1.83247475965336760469792104197060395, +1.13548121756511810579829330476905417, +1.21384015437550236992862415734348268, +1.90754934763452307514021648942634068, +1.21113301848054390009647428290155294, +1.73496921853198701280545284951397946, +1.71740231812095485124415528723897155, +1.24836066907548321320047977013065270, +1.00810252322569096381569088393978621, +1.49425599390149527174928319447070722, +1.49275133257480768728872757538483442, +1.28953720426733469877723806907117176, +1.84073971196534159440311674936945534, +1.66813021486749504682488254793127489, +1.72793495798923745298243130209668233, +1.88080004996692959076905844392763810, +1.58177170738980156151919170961339420, +1.26920948448156647152143417930217510, +1.12351174721016535194190350786309595, +1.73153001503672869888496966717787368, +1.80684928143510247002510060701204005, +1.37175131352482789950623888051679338
97
98atad = getFFTR(getFFTF(data))
99atad = atad * 2 / size(atad)
100atad
101+1.24591899724879246830818744654060256, +1.32866300531983482816183933254044729, +1.80259744946296910578116167124641539, +1.81122107506817312767061952384752374, +1.75215211194694047437732692592345532, +1.81860277039882938664324112337687076, +1.92846502682341232762209223734835180, +1.37472236909297704290502576021146451, +1.15334582795563064959469352568000696, +1.31788860747016749333669551656762678, +1.32019633055701172843728163928928760, +1.68977922690448026410350494334984582, +1.33343986264130854327048122643661738, +1.10210054004256178500430059696265088, +1.08996063296572323136180269634655745, +1.20624587914280169523036114238409001, +1.69230068852971630621654465508236110, +1.62598394841284992537594678821042738, +1.98404359947314297610627069919633278, +1.79822941630314754609739453572054647, +1.03342872706003479744367744196248545, +1.09278672964119215125607580842932052, +1.87363704412180705346106431811360661, +1.26079868336084918027890149268323212, +1.60268024343447018113487900527431362, +1.54114198216390507236505998882727543, +1.47145938374505747852998414903966399, +1.08927332381666012349346216326899609, +1.49308428738498103075022137834817296, +1.46018627935651864913794100123668815, +1.72463719733385174595106461279338217, +1.75896282314199993700451593981576957, +1.94823757665576857816732504100704970, +1.11195904482842387934309370654198716, +1.20505517858262317920435377621673335, +1.91113619478611062737655361820504811, +1.67216495360487756451949590698429195, +1.16755388199491734082570709800444594, +1.64745045194324043161979969840850288, +1.50626946373222913334384167191629153, +1.32136019490880195413170418425603177, +1.89010624001056328721947470431810470, +1.42303490935108988561019399306700029, +1.49785445182469774580404067437026319, +1.97942045452892756568015621609900214, +1.52269352384177223336061163621844630, +1.67463377772792135907572751283215594, +1.33356981718326987582827696445137169, +1.68434671344316858650718887670039561, +1.01057536149545953042480857532680828, +1.34780583297601985027235204958428755, +1.74201115555528103755327216572548524, +1.51036776216985027646819861343980875, +1.29810722694740467462380888242329985, +1.10183927516612323923831646784402596, +1.48830556717921017660341524356469226, +1.54985838707339604141634827683174031, +1.73894526274494046739467378033025958, +1.86665019395803298616260685490013511, +1.90242276159791853292637878927363196, +1.64683838874665564769477630872962057, +1.07525791405934382370218349383222412, +1.07151129064680888251367638835349739, +1.40711820829781715719718841707843973, +1.97513637959176496322755531276477835, +1.71881440812713709786598408918084527, +1.66091358241765742357126260956716656, +1.24362690728470356133840731182827937, +1.50847256966725960204661851192737897, +1.23263163520010581325913373696900555, +1.95750755207000864230983447143864155, +1.23312717053838746695559991613453359, +1.83247475965336760469792104197060415, +1.13548121756511810579829330476905475, +1.21384015437550236992862415734348268, +1.90754934763452307514021648942634145, +1.21113301848054390009647428290155313, +1.73496921853198701280545284951398003, +1.71740231812095485124415528723897136, +1.24836066907548321320047977013065308, +1.00810252322569096381569088393978640, +1.49425599390149527174928319447070741, +1.49275133257480768728872757538483442, +1.28953720426733469877723806907117195, +1.84073971196534159440311674936945573, +1.66813021486749504682488254793127508, +1.72793495798923745298243130209668214, +1.88080004996692959076905844392763849, +1.58177170738980156151919170961339420, +1.26920948448156647152143417930217568, +1.12351174721016535194190350786309537, +1.73153001503672869888496966717787368, +1.80684928143510247002510060701204024, +1.37175131352482789950623888051679376, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.770371977754894341222391177033970927E-33, +0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.674075480535532548569592279904724561E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33
102reltol = sqrt(epsilon(1._TKC))
103reltol
104+0.138777878078144567552953958511352539E-16
105isClose(data, atad(1:size(data)), reltol = reltol)
106T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
107call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
108
109lenData = getUnifRand(5, 100)
110lenData
111+9
112data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
113data
114(+1.48783302, +0.613755584), (+1.47470403, +0.341310143), (+1.32044697, +0.541642308), (+1.03233433, +0.883077800), (+1.46747220, +0.315097332), (+1.08151197, +0.394125164), (+1.57497835, +0.225712597), (+1.81283081, +0.381570339), (+1.27522576, +0.458270609)
115
116atad = getFFTR(getFFTF(data))
117atad = atad / size(atad)
118atad
119(+1.48783290, +0.613755584), (+1.47470403, +0.341310263), (+1.32044697, +0.541642189), (+1.03233433, +0.883077919), (+1.46747220, +0.315097183), (+1.08151209, +0.394125044), (+1.57497835, +0.225712404), (+1.81283069, +0.381570220), (+1.27522576, +0.458270639), (-0.596046448E-7, -0.894069672E-7), (+0.178813934E-6, +0.894069672E-7), (+0.178813934E-6, -0.178813934E-6), (-0.119209290E-6, +0.149011612E-6), (+0.119209290E-6, +0.298023224E-7), (+0.178813934E-6, +0.223517418E-6), (+0.119209290E-6, +0.238418579E-6)
120reltol = sqrt(epsilon(1._TKC))
121reltol
122+0.345266977E-3
123isClose(data, atad(1:size(data)), reltol = reltol)
124T, T, T, T, T, T, T, T, T
125call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
126
127lenData = getUnifRand(5, 100)
128lenData
129+53
130data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
131data
132(+1.6102898132827157, +0.15963200137513223), (+1.0526924237100230, +0.93185996774958302), (+1.4238423314895090, +0.53568458449357514), (+1.1554183498931949, +0.20697845880704935), (+1.0436288153873123, +0.68933941366001616E-1), (+1.6512994943625448, +0.62263189016830689), (+1.9677662421090973, +0.18728609128153595), (+1.5607706019164314, +0.91315512575354241), (+1.0662841113389123, +0.74178842380669818), (+1.5646096289467624, +0.13217492633930694), (+1.8909817589171021, +0.94261086311707931E-1), (+1.9483069793853360, +0.37345810591487727), (+1.1533791228247314, +0.97939045545267789), (+1.6212107696354807, +0.78595099902967103), (+1.5107267745059922, +0.92019604570264013), (+1.2553451583715485, +0.55138108473248337), (+1.4578129653930252, +0.62672514017527214), (+1.6852241736810551, +0.94891727902146628), (+1.9120380936253589, +0.97291688589312120), (+1.4028485084542122, +0.33720608016930687), (+1.1528352029633915, +0.46946292899751374), (+1.7964478611001495, +0.49915147596958642), (+1.7896400111835487, +0.93515218170008507), (+1.7051580873712080, +0.71210632843436794), (+1.9604451410877810, +0.44777169372086456), (+1.1399510961067127, +0.83488930806188688), (+1.7603212236267287, +0.93917398417047593), (+1.6404472672432959, +0.81964150140727776), (+1.6284425343491504, +0.34321801910249927), (+1.4650814091836291, +0.74850582130784549E-1), (+1.0860339245383415, +0.43420988092013624), (+1.1297947941801978, +0.83530512662645828), (+1.2440174613734036, +0.20969732391735840), (+1.8790656201386926, +0.80574696632006904), (+1.5582366121987730, +0.81249765706176069), (+1.6308115173808395, +0.59451383245245082), (+1.8811137768005342, +0.45521007815934655), (+1.3765215013177090, +0.79536359579483573E-1), (+1.9454870194571456, +0.58388030798515667), (+1.7166615511578820, +0.29345995864076702), (+1.2216098904170982, +0.77698395185928437), (+1.3147177787155817, +0.10025997722830371), (+1.2400702789921043, +0.69215301038690369), (+1.5012263337386695, +0.41570795032661101), (+1.9634820290442190, +0.15137086117817278), (+1.3392563201232286, +0.79325305753056685), (+1.0974519986503450, +0.93522409086190561), (+1.9345097908823101, +0.96818574801988633), (+1.8188749353016607, +0.27922610549996918), (+1.2422164056508183, +0.17042035012963985), (+1.2603645311390539, +0.26581438164013182), (+1.5230122625901170, +0.48137097246922056E-1), (+1.2577741939947082, +0.51485948718715879)
133
134atad = getFFTR(getFFTF(data))
135atad = atad / size(atad)
136atad
137(+1.6102898132827157, +0.15963200137513217), (+1.0526924237100233, +0.93185996774958302), (+1.4238423314895083, +0.53568458449357548), (+1.1554183498931949, +0.20697845880704963), (+1.0436288153873123, +0.68933941366001561E-1), (+1.6512994943625445, +0.62263189016830700), (+1.9677662421090971, +0.18728609128153612), (+1.5607706019164309, +0.91315512575354285), (+1.0662841113389119, +0.74178842380669807), (+1.5646096289467621, +0.13217492633930727), (+1.8909817589171012, +0.94261086311708320E-1), (+1.9483069793853356, +0.37345810591487771), (+1.1533791228247310, +0.97939045545267733), (+1.6212107696354803, +0.78595099902967114), (+1.5107267745059916, +0.92019604570264002), (+1.2553451583715483, +0.55138108473248371), (+1.4578129653930252, +0.62672514017527203), (+1.6852241736810554, +0.94891727902146639), (+1.9120380936253580, +0.97291688589312086), (+1.4028485084542119, +0.33720608016930698), (+1.1528352029633913, +0.46946292899751352), (+1.7964478611001491, +0.49915147596958648), (+1.7896400111835484, +0.93515218170008474), (+1.7051580873712078, +0.71210632843436783), (+1.9604451410877806, +0.44777169372086456), (+1.1399510961067132, +0.83488930806188666), (+1.7603212236267283, +0.93917398417047560), (+1.6404472672432961, +0.81964150140727710), (+1.6284425343491502, +0.34321801910249927), (+1.4650814091836291, +0.74850582130784660E-1), (+1.0860339245383415, +0.43420988092013618), (+1.1297947941801980, +0.83530512662645795), (+1.2440174613734034, +0.20969732391735846), (+1.8790656201386928, +0.80574696632006904), (+1.5582366121987725, +0.81249765706176047), (+1.6308115173808395, +0.59451383245245082), (+1.8811137768005342, +0.45521007815934661), (+1.3765215013177090, +0.79536359579483351E-1), (+1.9454870194571454, +0.58388030798515644), (+1.7166615511578815, +0.29345995864076674), (+1.2216098904170978, +0.77698395185928404), (+1.3147177787155817, +0.10025997722830347), (+1.2400702789921039, +0.69215301038690358), (+1.5012263337386691, +0.41570795032661068), (+1.9634820290442185, +0.15137086117817294), (+1.3392563201232282, +0.79325305753056652), (+1.0974519986503448, +0.93522409086190550), (+1.9345097908823099, +0.96818574801988622), (+1.8188749353016602, +0.27922610549996929), (+1.2422164056508185, +0.17042035012963991), (+1.2603645311390537, +0.26581438164013182), (+1.5230122625901170, +0.48137097246921667E-1), (+1.2577741939947080, +0.51485948718715890), (-0.55511151231257827E-15, -0.16653345369377348E-15), (+0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, +0.16653345369377348E-15), (-0.33306690738754696E-15, +0.22204460492503131E-15), (+0.44408920985006262E-15, -0.22204460492503131E-15), (+0.0000000000000000, +0.61062266354383610E-15), (+0.44408920985006262E-15, +0.22204460492503131E-15), (+0.22204460492503131E-15, +0.13877787807814457E-15), (+0.44408920985006262E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, +0.61062266354383610E-15), (+0.77715611723760958E-15, +0.27755575615628914E-15)
138reltol = sqrt(epsilon(1._TKC))
139reltol
140+0.14901161193847656E-7
141isClose(data, atad(1:size(data)), reltol = reltol)
142T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
143call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
144
145lenData = getUnifRand(5, 100)
146lenData
147+44
148data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
149data
150(+1.56751914865738318776206889627308445, +0.871674675182282027409198752892625850), (+1.58384731659247257446827418376425284, +0.133953820989963662306658691831746218), (+1.94891205479843827095195482390120550, +0.426656707764664424340064982793359842), (+1.28677652842539096245684649273579907, +0.751071791868292758797683373299003624), (+1.58977375941754778689027920011222004, +0.868274308954135718612993572642759068), (+1.02422994663581514034349768457148493, +0.787102292163039477411289245249669065), (+1.66472903303439813812508056575928399, +0.540399867698277812464435324330001995E-1), (+1.05293109067230203636912105440397587, +0.127797412994242913961984894215153727), (+1.39577840012843814488308222420410270, +0.212636082133028370808132651559817957), (+1.65795649367882183207378860013705847, +0.628641877525165856137064750994767711E-1), (+1.61225713152603223947288203117293567, +0.877398973697464733228453054461209134E-2), (+1.23836877691303676343881928956420815, +0.933954568511797356270098476608873265), (+1.94469129490030024100901288437259837, +0.219947835488870457916374339696279621), (+1.25388939825967858024766117903055712, +0.365084935347152756608820429985662356), (+1.87356997209157604267632468720465745, +0.463142353452662503341594526548488459E-1), (+1.78412252779563208736334977151463118, +0.581822903895775752870214591776473445), (+1.58603268170338999642519536989378140, +0.143717114246580154494208466913617964), (+1.39268353552049927849369948156718917, +0.247663168884760025639814017338090956), (+1.28728338163647981598951316155859086, +0.974163950584091219326427663955058393), (+1.85856546837662180767710197923883825, +0.315098935303250795559879047758342536), (+1.95699052826427562409059502112547215, +0.559632488827941038137234115192156630), (+1.77588713761286297852145806132398417, +0.654999184620970657492101223663492659E-1), (+1.12706576170910351248671994035324056, +0.292345514564095785103268919262074099E-1), (+1.56211171332506311006317286154013874, +0.241553236780650998752709748842721552), (+1.84566520080789162883706927783272941, +0.498806231585814954701436432850922979), (+1.41102562331050043685657467813820883, +0.858583709383244972280546839688829523E-1), (+1.19739808021321265041741858353364037, +0.138136870529996399305753452959133040), (+1.26536404163321847756795754128266869, +0.736663762102255744129680694167531591), (+1.58719997718826760891421225674061819, +0.308013038274561703371161208298965258), (+1.55455600367597046143335761810549998, +0.278513512760454922016705219050581077), (+1.54559333614773459918797032284849400, +0.605195135781432783241151395883161421), (+1.18109556830726618094977349813258308, +0.248800238705735155941160148265927222E-1), (+1.13963424636446032158198939424096785, +0.638199327101531098189218015921867743E-1), (+1.97743614171852495490349730328903443, +0.573094341665128506393690355191211423), (+1.33988648063981625315001978160326396, +0.513607256640928607458622311772191343E-1), (+1.83810763638080363230634844610483444, +0.485451168796441084105483271486169460E-2), (+1.24794346902255810318537685949755571, +0.324832812790784943202296108399707987), (+1.79053395048123196789676477802215126, +0.401222189453364372353410346165609499), (+1.24313092890744112843785686719862600, +0.218206057468317082051882466349495998), (+1.11782559661837125101087556298256919, +0.325222222562169018392323670596716951), (+1.79863827202992410008399270989094676, +0.929070136783419517274272788689285804), (+1.64270391526346095077663489641337143, +0.137938813833483404361321157420932289), (+1.66145216315770829407860539580334791, +0.643733240517623072314727174433254695), (+1.05352029203122825190988521542670153, +0.142849867694664707877716475631195985)
151
152atad = getFFTR(getFFTF(data))
153atad = atad / size(atad)
154atad
155(+1.56751914865738318776206889627308445, +0.871674675182282027409198752892625754), (+1.58384731659247257446827418376425303, +0.133953820989963662306658691831746339), (+1.94891205479843827095195482390120550, +0.426656707764664424340064982793359698), (+1.28677652842539096245684649273579907, +0.751071791868292758797683373299003624), (+1.58977375941754778689027920011222042, +0.868274308954135718612993572642758972), (+1.02422994663581514034349768457148493, +0.787102292163039477411289245249669258), (+1.66472903303439813812508056575928418, +0.540399867698277812464435324329998143E-1), (+1.05293109067230203636912105440397606, +0.127797412994242913961984894215153486), (+1.39577840012843814488308222420410289, +0.212636082133028370808132651559818006), (+1.65795649367882183207378860013705847, +0.628641877525165856137064750994768554E-1), (+1.61225713152603223947288203117293567, +0.877398973697464733228453054461204319E-2), (+1.23836877691303676343881928956420796, +0.933954568511797356270098476608873265), (+1.94469129490030024100901288437259818, +0.219947835488870457916374339696279814), (+1.25388939825967858024766117903055712, +0.365084935347152756608820429985662404), (+1.87356997209157604267632468720465784, +0.463142353452662503341594526548490145E-1), (+1.78412252779563208736334977151463118, +0.581822903895775752870214591776473638), (+1.58603268170338999642519536989378140, +0.143717114246580154494208466913618012), (+1.39268353552049927849369948156718936, +0.247663168884760025639814017338090932), (+1.28728338163647981598951316155859086, +0.974163950584091219326427663955058393), (+1.85856546837662180767710197923883825, +0.315098935303250795559879047758342392), (+1.95699052826427562409059502112547253, +0.559632488827941038137234115192156726), (+1.77588713761286297852145806132398437, +0.654999184620970657492101223663491696E-1), (+1.12706576170910351248671994035324094, +0.292345514564095785103268919262073256E-1), (+1.56211171332506311006317286154013913, +0.241553236780650998752709748842721600), (+1.84566520080789162883706927783272980, +0.498806231585814954701436432850922883), (+1.41102562331050043685657467813820902, +0.858583709383244972280546839688829403E-1), (+1.19739808021321265041741858353364037, +0.138136870529996399305753452959133112), (+1.26536404163321847756795754128266888, +0.736663762102255744129680694167531399), (+1.58719997718826760891421225674061819, +0.308013038274561703371161208298965210), (+1.55455600367597046143335761810549998, +0.278513512760454922016705219050581029), (+1.54559333614773459918797032284849400, +0.605195135781432783241151395883161325), (+1.18109556830726618094977349813258327, +0.248800238705735155941160148265925356E-1), (+1.13963424636446032158198939424096785, +0.638199327101531098189218015921869188E-1), (+1.97743614171852495490349730328903443, +0.573094341665128506393690355191211519), (+1.33988648063981625315001978160326396, +0.513607256640928607458622311772190861E-1), (+1.83810763638080363230634844610483444, +0.485451168796441084105483271486164645E-2), (+1.24794346902255810318537685949755571, +0.324832812790784943202296108399708276), (+1.79053395048123196789676477802215126, +0.401222189453364372353410346165609885), (+1.24313092890744112843785686719862600, +0.218206057468317082051882466349496480), (+1.11782559661837125101087556298256938, +0.325222222562169018392323670596717095), (+1.79863827202992410008399270989094695, +0.929070136783419517274272788689285900), (+1.64270391526346095077663489641337143, +0.137938813833483404361321157420932337), (+1.66145216315770829407860539580334791, +0.643733240517623072314727174433254599), (+1.05352029203122825190988521542670153, +0.142849867694664707877716475631195888), (-0.962964972193617926527988971292463659E-34, -0.601853107621011204079993107057789787E-34), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.264815367353244929795196967105427506E-33), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, +0.361111864572606722447995864234673872E-34), (+0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (+0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.108333559371782016734398759270402162E-33), (-0.288889491658085377958396691387739098E-33, -0.361111864572606722447995864234673872E-34), (+0.385185988877447170611195588516985464E-33, +0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, -0.204630056591143809387197656399648528E-33), (+0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (+0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.234722711972194369591197311752538017E-33)
156reltol = sqrt(epsilon(1._TKC))
157reltol
158+0.138777878078144567552953958511352539E-16
159isClose(data, atad(1:size(data)), reltol = reltol)
160T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
161call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
162
163lenData = getUnifRand(5, 100)
164lenData
165+40
166data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
167data
168+1.16018522, +1.48399258, +1.75873005, +1.16470385, +1.99277234, +1.70743012, +1.65594923, +1.33871222, +1.58223283, +1.12028003, +1.18031597, +1.12693548, +1.28186488, +1.81067634, +1.41337514, +1.25354791, +1.27096987, +1.11041391, +1.65991354, +1.09533286, +1.52791488, +1.69470954, +1.38951266, +1.13818598, +1.43332291, +1.32766366, +1.83809531, +1.27230847, +1.92977369, +1.73057246, +1.56965339, +1.33380699, +1.85605347, +1.33157229, +1.53132689, +1.98878074, +1.01322472, +1.43072557, +1.20502591, +1.56275511
169
170atad = getFFTR(getFFTF(data))
171atad = atad * 2 / size(atad)
172atad
173+1.16018522, +1.48399234, +1.75872993, +1.16470373, +1.99277234, +1.70743001, +1.65594923, +1.33871210, +1.58223271, +1.12027979, +1.18031597, +1.12693548, +1.28186464, +1.81067598, +1.41337490, +1.25354791, +1.27096987, +1.11041367, +1.65991354, +1.09533286, +1.52791476, +1.69470930, +1.38951266, +1.13818598, +1.43332291, +1.32766342, +1.83809519, +1.27230859, +1.92977357, +1.73057234, +1.56965327, +1.33380699, +1.85605347, +1.33157229, +1.53132701, +1.98878062, +1.01322484, +1.43072546, +1.20502603, +1.56275499, +0.596046448E-7, +0.596046448E-7, +0.119209290E-6, +0.298023224E-6, +0.596046448E-7, +0.119209290E-6, +0.298023224E-6, +0.178813934E-6, -0.596046448E-7, +0.119209290E-6, -0.238418579E-6, +0.178813934E-6, +0.596046448E-7, +0.00000000, +0.00000000, +0.238418579E-6, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.178813934E-6, -0.119209290E-6, +0.596046448E-7, +0.119209290E-6
174reltol = sqrt(epsilon(1._TKC))
175reltol
176+0.345266977E-3
177isClose(data, atad(1:size(data)), reltol = reltol)
178T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
179call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
180
181lenData = getUnifRand(5, 100)
182lenData
183+52
184data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
185data
186+1.5495355143282530, +1.2211479039111031, +1.6214408654596817, +1.7412760724181982, +1.5250766108283766, +1.5156541101992622, +1.7482100845753761, +1.6142231944583103, +1.0786330595697411, +1.4006204108129037, +1.5854523674567407, +1.3911715743717679, +1.3859371792721018, +1.9204306789203374, +1.1910782508652304, +1.0001498025753572, +1.9699459903169685, +1.5212521634344194, +1.3428234470892422, +1.9044339646215098, +1.3234753437589057, +1.9879747966969101, +1.7794762489968972, +1.3274877965290433, +1.2911745191506991, +1.8230265440230102, +1.1677810484124662, +1.4083257679699082, +1.7249655740105789, +1.8463613300201760, +1.1950851433362164, +1.7175301306142197, +1.0170752102980716, +1.8574515336818793, +1.7699605425167040, +1.6927405339923771, +1.3304007277214516, +1.9533758392079412, +1.8220348989490702, +1.9356539659339176, +1.9650202159942072, +1.2047918248586318, +1.5741495033898194, +1.4805110405550606, +1.1485295953435952, +1.4268522751665111, +1.5793769851563704, +1.3525242244478992, +1.0855693189721345, +1.4443754080583546, +1.1019866481249092, +1.1054587491107353
187
188atad = getFFTR(getFFTF(data))
189atad = atad * 2 / size(atad)
190atad
191+1.5495355143282530, +1.2211479039111031, +1.6214408654596815, +1.7412760724181984, +1.5250766108283769, +1.5156541101992622, +1.7482100845753761, +1.6142231944583103, +1.0786330595697411, +1.4006204108129032, +1.5854523674567405, +1.3911715743717681, +1.3859371792721018, +1.9204306789203376, +1.1910782508652302, +1.0001498025753568, +1.9699459903169687, +1.5212521634344194, +1.3428234470892422, +1.9044339646215094, +1.3234753437589055, +1.9879747966969097, +1.7794762489968967, +1.3274877965290424, +1.2911745191506991, +1.8230265440230096, +1.1677810484124662, +1.4083257679699077, +1.7249655740105792, +1.8463613300201756, +1.1950851433362164, +1.7175301306142190, +1.0170752102980720, +1.8574515336818793, +1.7699605425167038, +1.6927405339923769, +1.3304007277214518, +1.9533758392079412, +1.8220348989490704, +1.9356539659339171, +1.9650202159942074, +1.2047918248586313, +1.5741495033898192, +1.4805110405550603, +1.1485295953435957, +1.4268522751665109, +1.5793769851563704, +1.3525242244478988, +1.0855693189721347, +1.4443754080583546, +1.1019866481249094, +1.1054587491107348, +0.99920072216264089E-15, +0.11102230246251565E-15, +0.99920072216264089E-15, -0.44408920985006262E-15, +0.77715611723760958E-15, +0.22204460492503131E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.88817841970012523E-15, +0.66613381477509392E-15, +0.88817841970012523E-15, +0.22204460492503131E-15
192reltol = sqrt(epsilon(1._TKC))
193reltol
194+0.14901161193847656E-7
195isClose(data, atad(1:size(data)), reltol = reltol)
196T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
197call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
198
199lenData = getUnifRand(5, 100)
200lenData
201+84
202data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
203data
204+1.24722882110768095981624659664025762, +1.49820259095023043244029493554921057, +1.06217509116852600019066486528238122, +1.52317512911125492880302351092320491, +1.62192437870029276069115469904580289, +1.49468580084415043686761276575700434, +1.05087904942063854243476907871249231, +1.04973565566782326011215047589023899, +1.81785184810598013653968850225311487, +1.44429355721607595503066036642847169, +1.86436393549691691206180449860038497, +1.99480093835068930622950191505405028, +1.96273541241060539241266686768369028, +1.72294998187239049357756825749287616, +1.26299812110695736199963453332992599, +1.24434175745192869208690905604691080, +1.66951343213215694698375901160970278, +1.60276536271134358733262469507155016, +1.46201914839994321863863084198852658, +1.02058579657696995619486813263906118, +1.79621338029097801338829244309676836, +1.85086659502532210770088815868935706, +1.75170663564502625775076777426400774, +1.35883347408264756917811101166903466, +1.96414075788283356814915897134056629, +1.35910506548562696405276074175604376, +1.37235197156056809661076784957545666, +1.16366666119020225991565041478542823, +1.60681827568530040211590802846202590, +1.46983341722572501518313491179153379, +1.26502094579903874086222407261793466, +1.57085659404205479614354779545016053, +1.51882971694214459389493715541561806, +1.52120141083832462179070004279094888, +1.89043770776323595882119068640005187, +1.41897559655333993545696343334021223, +1.02913458563322416238224383146779004, +1.47255297835936468600744838355826345, +1.06567771532267195471564892603940812, +1.62979312884227394739990806505065376, +1.50923428184969429858578197541010162, +1.27726166566497769168239347289635129, +1.85400837810952878078574608522941133, +1.04842029216080463518538897115521387, +1.45340252373533357009495226886840876, +1.79155237757463981721389390782780889, +1.66624499361582288262252150810198284, +1.53903362881537356542837304139336114, +1.86151023995104418928802457205980629, +1.67825668113733360731451609028299732, +1.28720950559512558744460988176460113, +1.28690522643447380791588892191531159, +1.93404051473269614523965067164535604, +1.27391496571353181919876233588427274, +1.10252438958029462810268106421156373, +1.35094561869734094219640695491467674, +1.89071454102908225734423093188957257, +1.02449480091632312790062285507851539, +1.24724046523661983601084258845141622, +1.12592884869386728980865455568926068, +1.34323544623724195451721664961926656, +1.40820828278251965692040202040989352, +1.46013097587802660457960038405748540, +1.51085433843341036021792983908162560, +1.87767111623864010720564873426493336, +1.90764403459475090140554653889672433, +1.54411119440990524097493284336547317, +1.06400643948961326861541535492853759, +1.05196978785662200464561022726604708, +1.36174831934020856220574138923124707, +1.17165195642475220848262789973757057, +1.68579306035587343725253838730627109, +1.79237253750414456087213822804688822, +1.71567406712775236727555803652941395, +1.06192266949054973794504518419337264, +1.32670072388331954636092168196850043, +1.36509375158314719011262832673636719, +1.46625800147721115747066733650428388, +1.65245475313594309105394883372503406, +1.10589907977412490406005672909257337, +1.96686323304897426139262416650088091, +1.74429469529636352101452235761437663, +1.31315309334396615884886458297386787, +1.01175984590151907789487107698068387
205
206atad = getFFTR(getFFTF(data))
207atad = atad * 2 / size(atad)
208atad
209+1.24722882110768095981624659664025762, +1.49820259095023043244029493554921076, +1.06217509116852600019066486528238122, +1.52317512911125492880302351092320491, +1.62192437870029276069115469904580289, +1.49468580084415043686761276575700396, +1.05087904942063854243476907871249173, +1.04973565566782326011215047589023899, +1.81785184810598013653968850225311507, +1.44429355721607595503066036642847189, +1.86436393549691691206180449860038535, +1.99480093835068930622950191505405067, +1.96273541241060539241266686768369086, +1.72294998187239049357756825749287577, +1.26299812110695736199963453332992599, +1.24434175745192869208690905604691042, +1.66951343213215694698375901160970240, +1.60276536271134358733262469507155016, +1.46201914839994321863863084198852638, +1.02058579657696995619486813263906137, +1.79621338029097801338829244309676797, +1.85086659502532210770088815868935668, +1.75170663564502625775076777426400716, +1.35883347408264756917811101166903427, +1.96414075788283356814915897134056610, +1.35910506548562696405276074175604376, +1.37235197156056809661076784957545646, +1.16366666119020225991565041478542823, +1.60681827568530040211590802846202570, +1.46983341722572501518313491179153379, +1.26502094579903874086222407261793485, +1.57085659404205479614354779545016033, +1.51882971694214459389493715541561806, +1.52120141083832462179070004279094869, +1.89043770776323595882119068640005206, +1.41897559655333993545696343334021223, +1.02913458563322416238224383146779023, +1.47255297835936468600744838355826306, +1.06567771532267195471564892603940812, +1.62979312884227394739990806505065376, +1.50923428184969429858578197541010123, +1.27726166566497769168239347289635110, +1.85400837810952878078574608522941171, +1.04842029216080463518538897115521387, +1.45340252373533357009495226886840896, +1.79155237757463981721389390782780889, +1.66624499361582288262252150810198304, +1.53903362881537356542837304139336133, +1.86151023995104418928802457205980609, +1.67825668113733360731451609028299732, +1.28720950559512558744460988176460113, +1.28690522643447380791588892191531159, +1.93404051473269614523965067164535642, +1.27391496571353181919876233588427197, +1.10252438958029462810268106421156411, +1.35094561869734094219640695491467636, +1.89071454102908225734423093188957238, +1.02449480091632312790062285507851500, +1.24724046523661983601084258845141641, +1.12592884869386728980865455568926048, +1.34323544623724195451721664961926656, +1.40820828278251965692040202040989314, +1.46013097587802660457960038405748559, +1.51085433843341036021792983908162522, +1.87767111623864010720564873426493336, +1.90764403459475090140554653889672452, +1.54411119440990524097493284336547337, +1.06400643948961326861541535492853720, +1.05196978785662200464561022726604747, +1.36174831934020856220574138923124668, +1.17165195642475220848262789973757096, +1.68579306035587343725253838730627128, +1.79237253750414456087213822804688802, +1.71567406712775236727555803652941453, +1.06192266949054973794504518419337264, +1.32670072388331954636092168196850063, +1.36509375158314719011262832673636738, +1.46625800147721115747066733650428388, +1.65245475313594309105394883372503406, +1.10589907977412490406005672909257318, +1.96686323304897426139262416650088071, +1.74429469529636352101452235761437663, +1.31315309334396615884886458297386767, +1.01175984590151907789487107698068368, +0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, +0.770371977754894341222391177033970927E-33, -0.481482486096808963263994485646231830E-33, -0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, +0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.674075480535532548569592279904724561E-33, -0.192592994438723585305597794258492732E-33, +0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33
210reltol = sqrt(epsilon(1._TKC))
211reltol
212+0.138777878078144567552953958511352539E-16
213isClose(data, atad(1:size(data)), reltol = reltol)
214T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
215call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
216
217lenData = getUnifRand(5, 100)
218lenData
219+28
220data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
221data
222(+1.85926783, +0.874813199E-1), (+1.38336205, +0.369808853), (+1.88871551, +0.549654424), (+1.46313667, +0.721470535), (+1.01963270, +0.577824533), (+1.41630554, +0.247060657), (+1.13613939, +0.727000892), (+1.21967113, +0.264703095), (+1.80663753, +0.129449368), (+1.23629212, +0.841869712E-1), (+1.36775744, +0.418300509), (+1.91098464, +0.507960439), (+1.29947424, +0.113195240), (+1.13658237, +0.571380317), (+1.35926962, +0.415728152), (+1.01659608, +0.688257158), (+1.05403042, +0.476399660), (+1.39366102, +0.517788172), (+1.19512534, +0.855423331), (+1.59595060, +0.190739810), (+1.17964077, +0.182263970), (+1.63263059, +0.287042499), (+1.47614169, +0.598783493E-1), (+1.11526167, +0.853125274), (+1.98985136, +0.192512214), (+1.80041575, +0.551186323), (+1.74091935, +0.131571949), (+1.64731669, +0.203214705)
223
224atad = getFFTR(getFFTF(data))
225atad = atad / size(atad)
226atad
227(+1.85926771, +0.874813050E-1), (+1.38336205, +0.369808823), (+1.88871539, +0.549654365), (+1.46313643, +0.721470535), (+1.01963246, +0.577824473), (+1.41630542, +0.247060686), (+1.13613927, +0.727000833), (+1.21967113, +0.264703095), (+1.80663741, +0.129449338), (+1.23629224, +0.841870010E-1), (+1.36775744, +0.418300480), (+1.91098440, +0.507960379), (+1.29947400, +0.113195285), (+1.13658214, +0.571380258), (+1.35926938, +0.415728211), (+1.01659608, +0.688257217), (+1.05403018, +0.476399601), (+1.39366102, +0.517788172), (+1.19512522, +0.855423331), (+1.59595037, +0.190739810), (+1.17964065, +0.182263955), (+1.63263047, +0.287042469), (+1.47614157, +0.598783493E-1), (+1.11526167, +0.853125274), (+1.98985112, +0.192512184), (+1.80041587, +0.551186204), (+1.74091923, +0.131571919), (+1.64731658, +0.203214690), (-0.119209290E-6, -0.149011612E-7), (+0.178813934E-6, +0.894069672E-7), (-0.596046448E-7, -0.149011612E-7), (+0.00000000, +0.894069672E-7)
228reltol = sqrt(epsilon(1._TKC))
229reltol
230+0.345266977E-3
231isClose(data, atad(1:size(data)), reltol = reltol)
232T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
233call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
234
235lenData = getUnifRand(5, 100)
236lenData
237+55
238data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
239data
240(+1.3529565930265046, +0.52603291809012098), (+1.4149496113233213, +0.32068339484694319), (+1.2954865585165629, +0.16644091799980643), (+1.6797670575340695, +0.40846770632656049), (+1.9965259181594748, +0.17574814065658328), (+1.1523927864562851, +0.96735366080723206), (+1.7021273947406788, +0.42693679767247927), (+1.6682344653896441, +0.75421670561558252), (+1.0865278036403963, +0.47426781328290879), (+1.3202920871011969, +0.82108843521387409), (+1.4134850229491769, +0.47183969376515744), (+1.2108361286651501, +0.84754757341329756E-1), (+1.8565039945525201, +0.46187592563008606), (+1.8123904583186787, +0.23633166765443470E-1), (+1.3493954661462682, +0.32726849749890496), (+1.2192869696273494, +0.40815391427746639), (+1.8297758944230322, +0.30556562332460824), (+1.1646175256576061, +0.95988513414630083), (+1.6441361141524298, +0.76874074734507414), (+1.0560330764108881, +0.47424774312594153), (+1.1970034847278717, +0.22121017104759666), (+1.2442419561257978, +0.60843936508528285), (+1.5724272062963305, +0.25266456761119227), (+1.3051628018834913, +0.76025871656267208), (+1.4794636993779235, +0.83328754880216049), (+1.9555551375761486, +0.62965335405251632), (+1.4840134209055822, +0.38175394765600201), (+1.2628654780536328, +0.99426169006337783), (+1.8744589402864538, +0.46463135346692785), (+1.6250399258269128, +0.23078049138571821), (+1.0446976554713130, +0.13669067084072117E-1), (+1.0503979599313986, +0.13084643714890154E-1), (+1.8382926947024192, +0.40651657252100382), (+1.0704645453789483, +0.75884763996448545), (+1.5640173933626862, +0.94921135590412686), (+1.4869411421829601, +0.96659324006132052), (+1.7827368197758138, +0.65340589465703702), (+1.0641783714857298, +0.50572480053104529), (+1.3336899267474620, +0.18393586104135839), (+1.1451023833154528, +0.62892055276462711), (+1.0841902751032513, +0.34185261887601059), (+1.0114950495641390, +0.84721915541437565), (+1.7295609810963284, +0.11058797403458254), (+1.1335582554922856, +0.99230190574878352), (+1.5608598375901819, +0.46839212059911361), (+1.8887658287949944, +0.71848215193505149E-2), (+1.6946364307125572, +0.97462518485534244), (+1.5549398930033376, +0.46985365631465337), (+1.0567037132930714, +0.46066561611618273), (+1.6608774873308869, +0.47193222228090470), (+1.6284389754091602, +0.55759605343646690), (+1.0844621129124974, +0.48347593556457769), (+1.6128944941971617, +0.51922459265860010), (+1.1937404001465510, +0.18044614283986571), (+1.8343172825525236, +0.48461257936620816)
241
242atad = getFFTR(getFFTF(data))
243atad = atad / size(atad)
244atad
245(+1.3529565930265046, +0.52603291809012098), (+1.4149496113233218, +0.32068339484694319), (+1.2954865585165631, +0.16644091799980659), (+1.6797670575340695, +0.40846770632656082), (+1.9965259181594748, +0.17574814065658306), (+1.1523927864562851, +0.96735366080723217), (+1.7021273947406788, +0.42693679767247900), (+1.6682344653896444, +0.75421670561558285), (+1.0865278036403960, +0.47426781328290890), (+1.3202920871011972, +0.82108843521387453), (+1.4134850229491771, +0.47183969376515761), (+1.2108361286651501, +0.84754757341330089E-1), (+1.8565039945525199, +0.46187592563008634), (+1.8123904583186792, +0.23633166765443737E-1), (+1.3493954661462677, +0.32726849749890530), (+1.2192869696273494, +0.40815391427746639), (+1.8297758944230320, +0.30556562332460802), (+1.1646175256576066, +0.95988513414630094), (+1.6441361141524300, +0.76874074734507403), (+1.0560330764108881, +0.47424774312594115), (+1.1970034847278717, +0.22121017104759669), (+1.2442419561257982, +0.60843936508528318), (+1.5724272062963307, +0.25266456761119216), (+1.3051628018834913, +0.76025871656267185), (+1.4794636993779235, +0.83328754880216038), (+1.9555551375761491, +0.62965335405251643), (+1.4840134209055829, +0.38175394765600168), (+1.2628654780536328, +0.99426169006337750), (+1.8744589402864538, +0.46463135346692763), (+1.6250399258269135, +0.23078049138571788), (+1.0446976554713132, +0.13669067084072312E-1), (+1.0503979599313986, +0.13084643714890237E-1), (+1.8382926947024192, +0.40651657252100371), (+1.0704645453789485, +0.75884763996448545), (+1.5640173933626866, +0.94921135590412686), (+1.4869411421829599, +0.96659324006132030), (+1.7827368197758138, +0.65340589465703691), (+1.0641783714857300, +0.50572480053104529), (+1.3336899267474625, +0.18393586104135823), (+1.1451023833154530, +0.62892055276462711), (+1.0841902751032511, +0.34185261887601037), (+1.0114950495641395, +0.84721915541437531), (+1.7295609810963282, +0.11058797403458237), (+1.1335582554922858, +0.99230190574878296), (+1.5608598375901814, +0.46839212059911334), (+1.8887658287949947, +0.71848215193504698E-2), (+1.6946364307125568, +0.97462518485534200), (+1.5549398930033376, +0.46985365631465303), (+1.0567037132930712, +0.46066561611618262), (+1.6608774873308874, +0.47193222228090470), (+1.6284389754091604, +0.55759605343646679), (+1.0844621129124978, +0.48347593556457719), (+1.6128944941971617, +0.51922459265860010), (+1.1937404001465510, +0.18044614283986549), (+1.8343172825525242, +0.48461257936620772), (+0.33306690738754696E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.13322676295501878E-14, +0.19428902930940239E-15), (+0.66613381477509392E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.55511151231257827E-16), (+0.88817841970012523E-15, -0.97144514654701197E-16), (+0.11102230246251565E-14, +0.58286708792820718E-15), (+0.77715611723760958E-15, +0.47184478546569153E-15)
246reltol = sqrt(epsilon(1._TKC))
247reltol
248+0.14901161193847656E-7
249isClose(data, atad(1:size(data)), reltol = reltol)
250T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
251call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
252
253lenData = getUnifRand(5, 100)
254lenData
255+32
256data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
257data
258(+1.31574898171456944456843532082359609, +0.466342577378235398588158902951470454), (+1.34500465773861729302913881981016708, +0.206377983072405875054448951029913026), (+1.45419650971288292369361494372793079, +0.639205198607060651996540621367139024E-1), (+1.91215035312399747678472649463505630, +0.598020344116411199029162272154905259), (+1.54276786921709476595904685085091025, +0.355397163953334529938730104856468976), (+1.05195478591663799343628160264161297, +0.971160862410564555367288188537337166), (+1.82432249854563528042552350102297599, +0.837117403042266964493688334109677305), (+1.13676941928589232361199237584593177, +0.977132956904056426296517376011962526), (+1.52262935424665040733416799923784229, +0.101495640256822008484696398435822633), (+1.44613771165403730922840330923027940, +0.852323321904989613115438497392203246), (+1.22669677700243079007776387097041658, +0.959212918047720131276348582030718239), (+1.48990234707835685626818800847294435, +0.413758871268381125975253215427073373), (+1.39456652384053785888446642476696202, +0.535526902374775441178571946319701788), (+1.56826118134005724807663214167746832, +0.991087499395320901909657085709966177), (+1.68799818444983530207842445445423175, +0.775244914152860956366453507113208373), (+1.58591920648453598309550921699479165, +0.906801703981922922963702367970949632), (+1.40235555286385604727702491880339153, +0.555368954733382493925823386222634461), (+1.81773042466194906817849349271310882, +0.205072624915753957534489667938035890), (+1.84735790015128541935183892988924655, +0.143301901107486299436138877622190822), (+1.63182797480062584230690092977083973, +0.388429221094810935022372967221890467), (+1.57383478706072362849421006555248369, +0.562536585407358368855847997985449565), (+1.42167742527810554372615302223991928, +0.373332357664166009836253237950152458), (+1.84921887798663590991301967102004418, +0.337471654220404053336581188638008711E-1), (+1.99255964916885911089114229286118512, +0.180267481722395076414566388564243543), (+1.45778926329351539294404303109734458, +0.583780051113532733266727334830282810), (+1.33493437423493114357668532014377366, +0.200570340222968496742761479519720595), (+1.85483312560487953423313702976864207, +0.235332922045316393365105123071902187), (+1.52351215547849534229225976218090739, +0.502376823108955133236496083747900117), (+1.79356029155918302435335038794814833, +0.809931539237079508575182630900523635), (+1.18107330092216920254609643073343884, +0.558668947689613023367777819873698134), (+1.15536086843636524469412978274051197, +0.496408414475406049096510603235937481), (+1.87282994940588925953873001393757758, +0.258084881028498603171799683196392061)
259
260atad = getFFTR(getFFTF(data))
261atad = atad / size(atad)
262atad
263(+1.31574898171456944456843532082359609, +0.466342577378235398588158902951470454), (+1.34500465773861729302913881981016747, +0.206377983072405875054448951029912978), (+1.45419650971288292369361494372793098, +0.639205198607060651996540621367138181E-1), (+1.91215035312399747678472649463505630, +0.598020344116411199029162272154905259), (+1.54276786921709476595904685085090986, +0.355397163953334529938730104856468976), (+1.05195478591663799343628160264161317, +0.971160862410564555367288188537336973), (+1.82432249854563528042552350102297637, +0.837117403042266964493688334109677401), (+1.13676941928589232361199237584593177, +0.977132956904056426296517376011962526), (+1.52262935424665040733416799923784209, +0.101495640256822008484696398435822585), (+1.44613771165403730922840330923027959, +0.852323321904989613115438497392203150), (+1.22669677700243079007776387097041658, +0.959212918047720131276348582030718239), (+1.48990234707835685626818800847294435, +0.413758871268381125975253215427073325), (+1.39456652384053785888446642476696202, +0.535526902374775441178571946319701692), (+1.56826118134005724807663214167746851, +0.991087499395320901909657085709966080), (+1.68799818444983530207842445445423136, +0.775244914152860956366453507113208469), (+1.58591920648453598309550921699479165, +0.906801703981922922963702367970949632), (+1.40235555286385604727702491880339153, +0.555368954733382493925823386222634461), (+1.81773042466194906817849349271310901, +0.205072624915753957534489667938035938), (+1.84735790015128541935183892988924655, +0.143301901107486299436138877622190726), (+1.63182797480062584230690092977083992, +0.388429221094810935022372967221890370), (+1.57383478706072362849421006555248330, +0.562536585407358368855847997985449565), (+1.42167742527810554372615302223991947, +0.373332357664166009836253237950152410), (+1.84921887798663590991301967102004438, +0.337471654220404053336581188638007748E-1), (+1.99255964916885911089114229286118531, +0.180267481722395076414566388564243398), (+1.45778926329351539294404303109734439, +0.583780051113532733266727334830282810), (+1.33493437423493114357668532014377405, +0.200570340222968496742761479519720691), (+1.85483312560487953423313702976864207, +0.235332922045316393365105123071902284), (+1.52351215547849534229225976218090739, +0.502376823108955133236496083747899924), (+1.79356029155918302435335038794814814, +0.809931539237079508575182630900523635), (+1.18107330092216920254609643073343903, +0.558668947689613023367777819873698230), (+1.15536086843636524469412978274051178, +0.496408414475406049096510603235937529), (+1.87282994940588925953873001393757758, +0.258084881028498603171799683196392061)
264reltol = sqrt(epsilon(1._TKC))
265reltol
266+0.138777878078144567552953958511352539E-16
267isClose(data, atad(1:size(data)), reltol = reltol)
268T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
269call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
270
271lenData = getUnifRand(5, 100)
272lenData
273+30
274data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
275data
276+1.61627293, +1.43029785, +1.43353629, +1.50917602, +1.66447973, +1.07440484, +1.55906987, +1.50416636, +1.51534557, +1.14775920, +1.95410025, +1.13467908, +1.08183599, +1.26744962, +1.34191394, +1.84995842, +1.29751277, +1.74623275, +1.28111649, +1.86041164, +1.77096796, +1.18801022, +1.18554306, +1.35101986, +1.52949917, +1.68942785, +1.65151763, +1.69345593, +1.13707709, +1.56024408
277
278atad = getFFTR(getFFTF(data))
279atad = atad * 2 / size(atad)
280atad
281+1.61627281, +1.43029785, +1.43353593, +1.50917625, +1.66447949, +1.07440495, +1.55906963, +1.50416660, +1.51534545, +1.14775920, +1.95410013, +1.13467908, +1.08183599, +1.26744962, +1.34191418, +1.84995842, +1.29751265, +1.74623275, +1.28111613, +1.86041164, +1.77096772, +1.18801022, +1.18554306, +1.35101986, +1.52949917, +1.68942785, +1.65151739, +1.69345593, +1.13707709, +1.56024408, +0.596046448E-7, +0.417232513E-6
282reltol = sqrt(epsilon(1._TKC))
283reltol
284+0.345266977E-3
285isClose(data, atad(1:size(data)), reltol = reltol)
286T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
287call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
288
289lenData = getUnifRand(5, 100)
290lenData
291+96
292data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
293data
294+1.6747212903043969, +1.7684597539397906, +1.3433696512297726, +1.0197229183275329, +1.6754173533502406, +1.9438247462191542, +1.9558680911479991, +1.9026336403200088, +1.9962727353628460, +1.9731975987672170, +1.9780194863252354, +1.9490494644293330, +1.3601769731714484, +1.0528617487040317, +1.6287524042691142, +1.8719765983734571, +1.7323057156170178, +1.6072278963438549, +1.7618932872590523, +1.7984018285581800, +1.2973241756999916, +1.8154450651250302, +1.6682169366442801, +1.5801103760232393, +1.2261078849187805, +1.7557250662144135, +1.6057082892144829, +1.3944068235264575, +1.2551834398853750, +1.5955243109356636, +1.9252486779168314, +1.4964342330120068, +1.0150814523540501, +1.6313022299547622, +1.7571631930990885, +1.8714432417821880, +1.8077628364471052, +1.3803693795708289, +1.3466473301321045, +1.8943165741242329, +1.2073314849092882, +1.9092709418199494, +1.0650075330731532, +1.2510224834139636, +1.0962740843858059, +1.9959336398894578, +1.8385759097970789, +1.3628643247463259, +1.8332292985276730, +1.3848264088310942, +1.9059842561582905, +1.4589066616502495, +1.7125593376052923, +1.2668038913179487, +1.2762810395128057, +1.5675810928876688, +1.6171371454996550, +1.2334619921050725, +1.6298151256155404, +1.3254634715133453, +1.2746873583364637, +1.8302493252068430, +1.7945507744357401, +1.1230358494634336, +1.5667575379529699, +1.5086831666370779, +1.6810184240300030, +1.2801714272185263, +1.9274182237593629, +1.4287443656631258, +1.5262362379507071, +1.2265795225136165, +1.6264766502754417, +1.8452619724898498, +1.5608432421294132, +1.8743948970066509, +1.6608135082551341, +1.0461027529641438, +1.9978981181919195, +1.7058089264787080, +1.1361822338676606, +1.1598654587490387, +1.7873381561396005, +1.2397063918224993, +1.9568896626808598, +1.0884768270630518, +1.3358571127292693, +1.7790828849043909, +1.0443030729446794, +1.4101007739451430, +1.8101867186748049, +1.9775247109315122, +1.2456092728732724, +1.6178440481328928, +1.3239092624099453, +1.9107519288450738
295
296atad = getFFTR(getFFTF(data))
297atad = atad * 2 / size(atad)
298atad
299+1.6747212903043966, +1.7684597539397908, +1.3433696512297728, +1.0197229183275336, +1.6754173533502403, +1.9438247462191542, +1.9558680911479984, +1.9026336403200095, +1.9962727353628462, +1.9731975987672177, +1.9780194863252352, +1.9490494644293335, +1.3601769731714484, +1.0528617487040315, +1.6287524042691139, +1.8719765983734569, +1.7323057156170174, +1.6072278963438553, +1.7618932872590518, +1.7984018285581804, +1.2973241756999911, +1.8154450651250302, +1.6682169366442796, +1.5801103760232396, +1.2261078849187803, +1.7557250662144135, +1.6057082892144829, +1.3944068235264575, +1.2551834398853750, +1.5955243109356634, +1.9252486779168314, +1.4964342330120073, +1.0150814523540506, +1.6313022299547619, +1.7571631930990890, +1.8714432417821882, +1.8077628364471057, +1.3803693795708285, +1.3466473301321051, +1.8943165741242336, +1.2073314849092887, +1.9092709418199494, +1.0650075330731537, +1.2510224834139638, +1.0962740843858068, +1.9959336398894574, +1.8385759097970795, +1.3628643247463259, +1.8332292985276730, +1.3848264088310940, +1.9059842561582907, +1.4589066616502495, +1.7125593376052928, +1.2668038913179482, +1.2762810395128064, +1.5675810928876692, +1.6171371454996550, +1.2334619921050725, +1.6298151256155409, +1.3254634715133453, +1.2746873583364642, +1.8302493252068426, +1.7945507744357401, +1.1230358494634340, +1.5667575379529699, +1.5086831666370777, +1.6810184240300030, +1.2801714272185267, +1.9274182237593631, +1.4287443656631251, +1.5262362379507068, +1.2265795225136167, +1.6264766502754420, +1.8452619724898505, +1.5608432421294125, +1.8743948970066511, +1.6608135082551341, +1.0461027529641436, +1.9978981181919193, +1.7058089264787075, +1.1361822338676602, +1.1598654587490385, +1.7873381561396000, +1.2397063918224989, +1.9568896626808598, +1.0884768270630509, +1.3358571127292693, +1.7790828849043905, +1.0443030729446794, +1.4101007739451425, +1.8101867186748044, +1.9775247109315119, +1.2456092728732728, +1.6178440481328920, +1.3239092624099449, +1.9107519288450732, -0.11102230246251565E-15, -0.22204460492503131E-15, -0.44408920985006262E-15, +0.0000000000000000, +0.99920072216264089E-15, +0.11102230246251565E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.22204460492503131E-15, -0.22204460492503131E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.44408920985006262E-15, +0.55511151231257827E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.99920072216264089E-15, +0.55511151231257827E-15, +0.12212453270876722E-14, +0.33306690738754696E-15, +0.55511151231257827E-15, +0.88817841970012523E-15, +0.33306690738754696E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.11102230246251565E-15, +0.99920072216264089E-15
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.14901161193847656E-7
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+65
310data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
311data
312+1.37861935469693442366523528403541251, +1.43717602657658208495702387940119438, +1.65200474020461875415905685920302708, +1.29176624079029279535583169760895750, +1.20564366273409710441981066252387112, +1.84484684977899090684826918385316764, +1.76758688110724508990902591558922557, +1.31426767735026787099942833001659131, +1.00966837889899396262204407986686731, +1.99697254442352398360651562323860332, +1.31308366319408729148275642327694751, +1.27793582130893921073487376923517082, +1.63925223645354869374652316793978080, +1.58661324475678223258730927597679593, +1.97989660453117202325803056354230427, +1.30310921557144087628935905158669849, +1.86456020074830084941922697304913239, +1.96551263033027132265166903172752353, +1.90661193877551002953378695218597078, +1.76181380696466333505700910590462928, +1.88024002621630310163149207603548701, +1.67521097733148092388092973064875709, +1.67884088965715462767378089333480128, +1.06797831767091607777209187063571742, +1.99851576695390350860237100560809878, +1.46063502794731925971189793896664420, +1.15582012303192555719091919015190485, +1.43917754300529456022801515473474493, +1.81386760211211364161311253550227212, +1.40070332262759929808594420057891425, +1.95257733178481434382873822777650784, +1.55334689585153306916650170895635353, +1.73015536974615866439541759750561370, +1.44711424102451787429910769348539780, +1.30186281976692896163111873425685314, +1.70017587726108368455141603109452617, +1.54564157339466248670988410187238954, +1.63089799862133139818346185361456390, +1.59222716977216239232022392756382660, +1.58299157210168108562547591147970012, +1.87848331895333680083428052864681459, +1.49245724520885256458784794539967759, +1.63008825861551648095316285187062906, +1.36166704720150143341287707625438031, +1.44046186304661922203449330538252450, +1.50323588706202670062735104642639709, +1.99949414423359615614535583775057181, +1.80820776886900817612748104799930556, +1.14320582455827487342916514174820886, +1.53928175494348110315491968228515661, +1.00227034016111676403916000061681584, +1.71723182346281717210849571792426762, +1.10433527080845823032810683225565899, +1.01377877747878525885265631785864269, +1.03587827228169287001717115220341218, +1.88163935022136778200749129118876934, +1.42103502232523371643138673434188827, +1.62559973315291587157807857219523371, +1.21401353799528903159520672079272035, +1.29772371791954101943022449095553529, +1.64120257824972250022851859838646090, +1.38503260501095894790226676440435914, +1.83774660826493022623278837112246081, +1.54934853152308084640650176358267298, +1.30488390439265317507952878889375506
313
314atad = getFFTR(getFFTF(data))
315atad = atad * 2 / size(atad)
316atad
317+1.37861935469693442366523528403541270, +1.43717602657658208495702387940119477, +1.65200474020461875415905685920302747, +1.29176624079029279535583169760895789, +1.20564366273409710441981066252387093, +1.84484684977899090684826918385316764, +1.76758688110724508990902591558922538, +1.31426767735026787099942833001659150, +1.00966837889899396262204407986686808, +1.99697254442352398360651562323860370, +1.31308366319408729148275642327694808, +1.27793582130893921073487376923517121, +1.63925223645354869374652316793978099, +1.58661324475678223258730927597679593, +1.97989660453117202325803056354230504, +1.30310921557144087628935905158669849, +1.86456020074830084941922697304913219, +1.96551263033027132265166903172752372, +1.90661193877551002953378695218597058, +1.76181380696466333505700910590462986, +1.88024002621630310163149207603548662, +1.67521097733148092388092973064875709, +1.67884088965715462767378089333480090, +1.06797831767091607777209187063571761, +1.99851576695390350860237100560809897, +1.46063502794731925971189793896664497, +1.15582012303192555719091919015190485, +1.43917754300529456022801515473474550, +1.81386760211211364161311253550227212, +1.40070332262759929808594420057891483, +1.95257733178481434382873822777650784, +1.55334689585153306916650170895635430, +1.73015536974615866439541759750561389, +1.44711424102451787429910769348539800, +1.30186281976692896163111873425685294, +1.70017587726108368455141603109452656, +1.54564157339466248670988410187238973, +1.63089799862133139818346185361456390, +1.59222716977216239232022392756382660, +1.58299157210168108562547591147969974, +1.87848331895333680083428052864681497, +1.49245724520885256458784794539967836, +1.63008825861551648095316285187062906, +1.36166704720150143341287707625438070, +1.44046186304661922203449330538252470, +1.50323588706202670062735104642639748, +1.99949414423359615614535583775057219, +1.80820776886900817612748104799930595, +1.14320582455827487342916514174820886, +1.53928175494348110315491968228515661, +1.00227034016111676403916000061681565, +1.71723182346281717210849571792426762, +1.10433527080845823032810683225565899, +1.01377877747878525885265631785864230, +1.03587827228169287001717115220341218, +1.88163935022136778200749129118876876, +1.42103502232523371643138673434188788, +1.62559973315291587157807857219523410, +1.21401353799528903159520672079271997, +1.29772371791954101943022449095553567, +1.64120257824972250022851859838646090, +1.38503260501095894790226676440435953, +1.83774660826493022623278837112246081, +1.54934853152308084640650176358267318, +1.30488390439265317507952878889375487, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, +0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.674075480535532548569592279904724561E-33, +0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, -0.577778983316170755916793382775478196E-33, +0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.674075480535532548569592279904724561E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33, +0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, +0.577778983316170755916793382775478196E-33, +0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, +0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33
318reltol = sqrt(epsilon(1._TKC))
319reltol
320+0.138777878078144567552953958511352539E-16
321isClose(data, atad(1:size(data)), reltol = reltol)
322T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
323call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
324
325lenData = getUnifRand(5, 100)
326lenData
327+58
328data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
329data
330(+1.80964434, +0.355609059), (+1.97075725, +0.674024999), (+1.04895580, +0.591962755), (+1.15994763, +0.490921736E-1), (+1.50260687, +0.685850382E-1), (+1.05399573, +0.967001319), (+1.34479725, +0.902493238), (+1.68358767, +0.188326418), (+1.86398292, +0.601843119), (+1.56866741, +0.169225276), (+1.68071294, +0.295868993), (+1.69763589, +0.258508146), (+1.34794474, +0.995542467), (+1.16750026, +0.910823464), (+1.77153563, +0.265698791), (+1.58995771, +0.222337246), (+1.77590454, +0.255421698), (+1.48432660, +0.525310040E-1), (+1.83724701, +0.807722628), (+1.58123219, +0.964526415), (+1.70274258, +0.293063283), (+1.16609049, +0.401018262), (+1.59813428, +0.919531584E-1), (+1.61964917, +0.305306792), (+1.06716168, +0.761479139), (+1.03370917, +0.915748119), (+1.83126807, +0.706612229), (+1.95230985, +0.571296811E-1), (+1.88136315, +0.974668324), (+1.16149735, +0.526083291), (+1.71328688, +0.771967292), (+1.51278329, +0.615676045), (+1.24810624, +0.293915868), (+1.83191395, +0.630283356), (+1.57397103, +0.845261395), (+1.29479671, +0.719389915E-1), (+1.66738939, +0.801126897), (+1.44101834, +0.498194158), (+1.81188250, +0.965479016), (+1.40130711, +0.170580328), (+1.09607601, +0.790289283), (+1.51630402, +0.296502113E-1), (+1.96431851, +0.217040777E-1), (+1.38342428, +0.920476139), (+1.68227601, +0.438006461), (+1.82310367, +0.685847223), (+1.33191514, +0.223472476), (+1.61736083, +0.230586708), (+1.63845277, +0.545321882), (+1.36421072, +0.398568392), (+1.61967254, +0.622027397), (+1.36665845, +0.846035898), (+1.07934880, +0.614133060), (+1.48666263, +0.956784844), (+1.68676817, +0.181454599), (+1.69710422, +0.839394689), (+1.83031988, +0.929625809), (+1.15497148, +0.560589314)
331
332atad = getFFTR(getFFTF(data))
333atad = atad / size(atad)
334atad
335(+1.80964422, +0.355609059), (+1.97075725, +0.674024999), (+1.04895556, +0.591962814), (+1.15994751, +0.490922704E-1), (+1.50260663, +0.685850680E-1), (+1.05399585, +0.967001200), (+1.34479713, +0.902493238), (+1.68358767, +0.188326344), (+1.86398280, +0.601843119), (+1.56866741, +0.169225365), (+1.68071270, +0.295869201), (+1.69763589, +0.258508146), (+1.34794462, +0.995542645), (+1.16750038, +0.910823584), (+1.77153563, +0.265698999), (+1.58995783, +0.222337246), (+1.77590430, +0.255421788), (+1.48432672, +0.525311232E-1), (+1.83724689, +0.807722509), (+1.58123219, +0.964526296), (+1.70274246, +0.293063343), (+1.16609049, +0.401018202), (+1.59813428, +0.919532403E-1), (+1.61964929, +0.305306882), (+1.06716144, +0.761479020), (+1.03370917, +0.915748060), (+1.83126771, +0.706612229), (+1.95230973, +0.571296811E-1), (+1.88136292, +0.974668384), (+1.16149735, +0.526083231), (+1.71328676, +0.771967173), (+1.51278341, +0.615675926), (+1.24810624, +0.293915927), (+1.83191395, +0.630283415), (+1.57397091, +0.845261455), (+1.29479682, +0.719390139E-1), (+1.66738915, +0.801126957), (+1.44101834, +0.498194218), (+1.81188250, +0.965479136), (+1.40130723, +0.170580283), (+1.09607589, +0.790289283), (+1.51630402, +0.296502486E-1), (+1.96431828, +0.217041373E-1), (+1.38342428, +0.920476019), (+1.68227589, +0.438006550), (+1.82310355, +0.685847282), (+1.33191514, +0.223472446), (+1.61736071, +0.230586797), (+1.63845265, +0.545321822), (+1.36421096, +0.398568392), (+1.61967254, +0.622027338), (+1.36665857, +0.846035957), (+1.07934868, +0.614133060), (+1.48666239, +0.956784904), (+1.68676829, +0.181454748), (+1.69710433, +0.839394689), (+1.83031952, +0.929625750), (+1.15497148, +0.560589373), (+0.119209290E-6, +0.119209290E-6), (+0.596046448E-6, +0.119209290E-6), (+0.119209290E-6, -0.119209290E-6), (+0.417232513E-6, -0.298023224E-7), (+0.238418579E-6, +0.149011612E-6), (+0.357627869E-6, +0.208616257E-6)
336reltol = sqrt(epsilon(1._TKC))
337reltol
338+0.345266977E-3
339isClose(data, atad(1:size(data)), reltol = reltol)
340T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
341call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
342
343lenData = getUnifRand(5, 100)
344lenData
345+76
346data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
347data
348(+1.1039041674704519, +0.87351235146297690), (+1.1140773589824300, +0.50665683516398663), (+1.3631689437121353, +0.98757424244803660), (+1.5333046634650200, +0.35632256201977708), (+1.9767472647488835, +0.19764785537692975), (+1.6158791404077997, +0.22379373649707768), (+1.6854557418034739, +0.85326107884358793), (+1.8416537633827081, +0.33677841329431391), (+1.6405025313247572, +0.84294442603329789), (+1.2950149809864544, +0.75067611338764950), (+1.9704107236161885, +0.34205849374721697), (+1.2729544282505754, +0.25947464036017176), (+1.9243422982336815, +0.78595029259420857E-1), (+1.3157304583017444, +0.74717308448032638), (+1.3210387054575183, +0.22032486933105466), (+1.0244571727047769, +0.30481371404557445), (+1.0594182148508500, +0.95842117054178866), (+1.1388660607847036, +0.11454135932032306), (+1.0916110170595699, +0.70475340229886885E-1), (+1.8748805186135074, +0.27033748235031874), (+1.0578594030598860, +0.37189755884200471), (+1.8085899429942245, +0.33654912175611906), (+1.0179744247389919, +0.13396704206702537), (+1.3749826743859614, +0.81476217111534066), (+1.6287035928547395, +0.50350345011246467E-1), (+1.7468745289821448, +0.81725968169266361E-1), (+1.0670592177439562, +0.35731500833888841), (+1.0203637912418762, +0.60585349353764917), (+1.1728236950781459, +0.89799391017521912), (+1.2859663852432401, +0.92330183501034346), (+1.3072476553525874, +0.45190286327796658), (+1.3865717989101976, +0.14595328124053064E-1), (+1.5591540077538384, +0.26865565067349306), (+1.3347904750602666, +0.28620471526762781), (+1.6972004594991086, +0.17932522815415353), (+1.5940813720195601, +0.25435024976749876E-1), (+1.9821551700823787, +0.88820738040475333), (+1.4883061130525979, +0.53192362573926999), (+1.2177779927262431, +0.70508116787417974), (+1.3586180100483585, +0.74145275566287416), (+1.1466182707128343, +0.56339732082362659), (+1.8535519515382020, +0.63208710556058578), (+1.4313305394887144, +0.86837798025475110), (+1.7990591147228021, +0.43484767730739526), (+1.8978470100816560, +0.13220955191453909), (+1.2319148313013231, +0.58665938329451961), (+1.2093787646823069, +0.35767488282515747E-1), (+1.5059510590876259, +0.77124996193569917), (+1.6059334754374404, +0.38616156355311493), (+1.9183217684960701, +0.44909306899957124), (+1.9339492833428444, +0.16377920010910474), (+1.5249033257025868, +0.25974475381557838), (+1.3294818493722917, +0.36349558361479617), (+1.7116548949355384, +0.46708990759945546), (+1.6164970826858589, +0.89946357875913796), (+1.2331528292437159, +0.27163862322060728), (+1.7549505988867105, +0.44987102566380544), (+1.4810888293697271, +0.17842886047857154), (+1.3154112928047845, +0.14884770941950398E-1), (+1.5285033993419153, +0.34359591362318864), (+1.8082067191612823, +0.80359152674728107), (+1.5071528489350308, +0.41740897349665629), (+1.7075074745118006, +0.97694257177992616), (+1.8966524504441136, +0.73849352094670551), (+1.8872620360620438, +0.97309898753509372), (+1.3558268709833428, +0.25403673655592562), (+1.3414110374082169, +0.55280360164438058), (+1.1084284536084352, +0.30403893164633744), (+1.1974584355066371, +0.55152593220021706), (+1.5711680767185752, +0.87350113058281376), (+1.6831406972808907, +0.82361289253384151E-1), (+1.6423188366875037, +0.21091207790171929E-1), (+1.8241146698980470, +0.72483661483532547), (+1.5544621558300036, +0.75276798352629937), (+1.7353122063541613, +0.51636984475673564), (+1.0991166068873519, +0.42464476459042999)
349
350atad = getFFTR(getFFTF(data))
351atad = atad / size(atad)
352atad
353(+1.1039041674704517, +0.87351235146297690), (+1.1140773589824300, +0.50665683516398696), (+1.3631689437121350, +0.98757424244803671), (+1.5333046634650200, +0.35632256201977758), (+1.9767472647488833, +0.19764785537692980), (+1.6158791404077992, +0.22379373649707784), (+1.6854557418034739, +0.85326107884358793), (+1.8416537633827079, +0.33677841329431424), (+1.6405025313247574, +0.84294442603329800), (+1.2950149809864542, +0.75067611338764995), (+1.9704107236161887, +0.34205849374721731), (+1.2729544282505754, +0.25947464036017198), (+1.9243422982336811, +0.78595029259421106E-1), (+1.3157304583017440, +0.74717308448032682), (+1.3210387054575181, +0.22032486933105477), (+1.0244571727047767, +0.30481371404557467), (+1.0594182148508500, +0.95842117054178855), (+1.1388660607847036, +0.11454135932032322), (+1.0916110170595701, +0.70475340229887024E-1), (+1.8748805186135069, +0.27033748235031912), (+1.0578594030598856, +0.37189755884200448), (+1.8085899429942238, +0.33654912175611912), (+1.0179744247389917, +0.13396704206702539), (+1.3749826743859610, +0.81476217111534055), (+1.6287035928547393, +0.50350345011246272E-1), (+1.7468745289821446, +0.81725968169266583E-1), (+1.0670592177439562, +0.35731500833888830), (+1.0203637912418759, +0.60585349353764939), (+1.1728236950781459, +0.89799391017521912), (+1.2859663852432397, +0.92330183501034335), (+1.3072476553525871, +0.45190286327796647), (+1.3865717989101971, +0.14595328124053102E-1), (+1.5591540077538379, +0.26865565067349284), (+1.3347904750602666, +0.28620471526762759), (+1.6972004594991086, +0.17932522815415319), (+1.5940813720195601, +0.25435024976749723E-1), (+1.9821551700823787, +0.88820738040475278), (+1.4883061130525972, +0.53192362573926999), (+1.2177779927262433, +0.70508116787417952), (+1.3586180100483580, +0.74145275566287383), (+1.1466182707128343, +0.56339732082362648), (+1.8535519515382015, +0.63208710556058545), (+1.4313305394887146, +0.86837798025475088), (+1.7990591147228021, +0.43484767730739537), (+1.8978470100816556, +0.13220955191453901), (+1.2319148313013226, +0.58665938329451972), (+1.2093787646823067, +0.35767488282515761E-1), (+1.5059510590876259, +0.77124996193569917), (+1.6059334754374404, +0.38616156355311482), (+1.9183217684960696, +0.44909306899957113), (+1.9339492833428442, +0.16377920010910435), (+1.5249033257025866, +0.25974475381557821), (+1.3294818493722915, +0.36349558361479584), (+1.7116548949355377, +0.46708990759945523), (+1.6164970826858589, +0.89946357875913718), (+1.2331528292437159, +0.27163862322060683), (+1.7549505988867105, +0.44987102566380532), (+1.4810888293697269, +0.17842886047857162), (+1.3154112928047845, +0.14884770941950121E-1), (+1.5285033993419148, +0.34359591362318853), (+1.8082067191612821, +0.80359152674728040), (+1.5071528489350303, +0.41740897349665573), (+1.7075074745118002, +0.97694257177992561), (+1.8966524504441131, +0.73849352094670473), (+1.8872620360620433, +0.97309898753509383), (+1.3558268709833428, +0.25403673655592540), (+1.3414110374082169, +0.55280360164438025), (+1.1084284536084352, +0.30403893164633738), (+1.1974584355066376, +0.55152593220021684), (+1.5711680767185747, +0.87350113058281331), (+1.6831406972808907, +0.82361289253383652E-1), (+1.6423188366875039, +0.21091207790171512E-1), (+1.8241146698980468, +0.72483661483532547), (+1.5544621558300029, +0.75276798352629937), (+1.7353122063541611, +0.51636984475673520), (+1.0991166068873515, +0.42464476459042955), (+0.11102230246251565E-15, -0.18735013540549517E-15), (+0.22204460492503131E-15, -0.66613381477509392E-15), (+0.22204460492503131E-15, -0.23592239273284576E-15), (-0.11102230246251565E-15, -0.77715611723760958E-15), (-0.22204460492503131E-15, +0.0000000000000000), (+0.0000000000000000, -0.27755575615628914E-15), (+0.11102230246251565E-15, -0.36082248300317588E-15), (-0.11102230246251565E-15, -0.49960036108132044E-15), (+0.11102230246251565E-15, +0.83266726846886741E-16), (+0.0000000000000000, -0.16653345369377348E-15), (+0.33306690738754696E-15, -0.27755575615628914E-16), (+0.44408920985006262E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, -0.30531133177191805E-15), (+0.0000000000000000, -0.28449465006019636E-15), (+0.11102230246251565E-15, -0.30531133177191805E-15), (+0.22204460492503131E-15, -0.44408920985006262E-15), (+0.0000000000000000, -0.11102230246251565E-15), (+0.33306690738754696E-15, -0.33306690738754696E-15), (+0.0000000000000000, -0.22204460492503131E-15), (+0.33306690738754696E-15, +0.72858385991025898E-16), (-0.55511151231257827E-15, +0.33306690738754696E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.41633363423443370E-16), (-0.44408920985006262E-15, +0.61062266354383610E-15), (-0.33306690738754696E-15, +0.0000000000000000), (+0.0000000000000000, +0.27755575615628914E-15), (-0.33306690738754696E-15, +0.22204460492503131E-15), (-0.44408920985006262E-15, -0.22204460492503131E-15), (-0.33306690738754696E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.16653345369377348E-15), (+0.11102230246251565E-15, -0.27755575615628914E-16), (+0.11102230246251565E-15, +0.36082248300317588E-15), (+0.11102230246251565E-15, +0.0000000000000000), (-0.22204460492503131E-15, +0.34694469519536142E-15), (-0.22204460492503131E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.0000000000000000, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.55511151231257827E-15), (+0.0000000000000000, +0.33306690738754696E-15), (+0.0000000000000000, +0.88817841970012523E-15), (+0.11102230246251565E-15, +0.44408920985006262E-15), (+0.33306690738754696E-15, +0.24980018054066022E-15), (+0.22204460492503131E-15, +0.83266726846886741E-16), (+0.0000000000000000, +0.38857805861880479E-15), (+0.55511151231257827E-15, +0.27755575615628914E-15), (-0.22204460492503131E-15, +0.94368957093138306E-15), (+0.22204460492503131E-15, +0.66613381477509392E-15), (-0.55511151231257827E-15, +0.44408920985006262E-15), (-0.11102230246251565E-15, +0.11102230246251565E-14)
354reltol = sqrt(epsilon(1._TKC))
355reltol
356+0.14901161193847656E-7
357isClose(data, atad(1:size(data)), reltol = reltol)
358T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
359call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
360
361lenData = getUnifRand(5, 100)
362lenData
363+86
364data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
365data
366(+1.43069877795708401296076566384245324, +0.567708374219258026718250541457827790), (+1.33587421028320839056680676471553131, +0.504415809535981275624615798370277109E-1), (+1.91518590739058828380038328077852966, +0.444601705652513400892090475503388524), (+1.13270552758433338988302926125032106, +0.673359667572878718865861339840769127), (+1.63825379326778394382550395451298888, +0.630898199052444315709702946183715345), (+1.68094237954152468267124352762798831, +0.651364118325080142920573790977702270), (+1.02276666137191278713411894192918535, +0.178905542262610918962325265749225584), (+1.88706729503145876852457248728562624, +0.231206191637802120917354074598203906), (+1.10585756322521638280004984493085311, +0.943856578035116963283688580274180003), (+1.97959310627594012187458232918111952, +0.921870831065044087925432482038914920), (+1.34629001546589571267804272732337137, +0.662880000961231166287914385700208812E-1), (+1.20203993328891134525339087211542352, +0.477047024829251048087178516103559174), (+1.09307922525791438944529318602408529, +0.279954035785029127538735792266981571), (+1.07572684182162677890810465655356374, +0.526843529362970078756267990296218154), (+1.62260840254365367549274742019108223, +0.608861339116685387909187365881666390), (+1.84097006026392693430533470476377910, +0.555986147793203941920562947726322216), (+1.50095557200693345287588639118226264, +0.547607153395658460670551563707390452), (+1.48664679227504714559553697086419769, +0.733785974163873114818678087907825061E-1), (+1.17029916298445059030417793519555172, +0.967630645891482585750637332339422061), (+1.22212567556016495922440739396363400, +0.574497350314949743109733934182753107), (+1.71679152181994009860368360170147522, +0.897540858577788794496934244107916612), (+1.27494212601271317764056566005944382, +0.429830886016941225114586360760371598), (+1.90085941576879553167786071804343907, +0.577337275665098912607545290653364956), (+1.28831756042301417952904458413891070, +0.910262865458699017544133590155788662), (+1.86275835833878533681139773075736673, +0.145615573376558607987480439481153044), (+1.30777515517310508473103720196303512, +0.203259004721055060499093361341287746), (+1.22581337538272202571411458986850159, +0.815627000487484188036866970233249162), (+1.61645035827651262639271805846493329, +0.611275230875913560366711285664577494), (+1.39165082224782337623689564776238780, +0.291693750367677128844898504409579023), (+1.55654427304438594423374181096156310, +0.735704114123621206218586045786119254E-1), (+1.67867035512875393476719523716925650, +0.610058409161011402380234998130182781), (+1.00784880185615923545733202220620766, +0.618284244623375115868132890783697069), (+1.89878160003018579943398797925480484, +0.248169502096122988306629902242384988), (+1.62427575151725107743462898246635816, +0.385455172807385779389951502867228499), (+1.98982674236090491145783462032208609, +0.488752235629069588169867562174574156), (+1.44016072232203592703945576520701174, +0.363533451662160362801911866217645729), (+1.41292395560383320860057719667677670, +0.687869274881612513698887466786851112), (+1.52489662078477898303576260885784351, +0.607159860487034028472304371270830338), (+1.08041164926063344334990843614124195, +0.393798668982800650573438383357298730), (+1.00128646187512568642647680750613293, +0.466765913696669418376275360666107697), (+1.12861941859344160300942511893524131, +0.503783033479505024686639839931645397), (+1.90372841173867912254108628886151538, +0.546805103734411913506348472497094976), (+1.12607111986164183399615272849244209, +0.478725558865757423119415595073475535), (+1.19807130984446624728104703135809219, +0.682750828294737618297677686840058612), (+1.09507227961122688348275669718943609, +0.639854520160819295900675004920412395), (+1.35083455986994180126219167098019928, +0.298921918146318953763174407397168036), (+1.56442585947478084569502483198297266, +0.723749674170593150360165014929973772), (+1.15490646185522255126683034070503030, +0.855282051261224294982953529335893799), (+1.02278232092230347885216758700855868, +0.400478764597944560904753860638457535), (+1.01046013161540542996085617644327887, +0.311169731699411413131986202595259600), (+1.28231274691669286853659648830148585, +0.127296292437800985450373261237356928), (+1.29791959263169445217579874118651092, +0.877533776998572596752342794441941155), (+1.30678265241414611613566412819323900, +0.355523420105780157516338879822460963), (+1.66559307873573604974453605840248752, +0.842244177439072601948514195425420197), (+1.16147365454707695251278453765902508, +0.429024513676882698686807642278685717E-1), (+1.47932358817631530398669013255327654, +0.247842921995106466092026359370523695), (+1.38057655513342930833576832365874403, +0.448447863858482300963462256020255776), (+1.53746907860623356812544865524688048, +0.880785837243610943216392065613443171), (+1.38597590074231499450129264714963691, +0.312578425311281436456156670276738009), (+1.36830176042016872627016581359226768, +0.173973284549992886177439922044010827), (+1.43361333522049167917568215063336757, +0.538075079615719874234290327514388699), (+1.75378348018811575373451067421553965, +0.228395909363263028539995406037467487), (+1.37796147616148843125845864380077844, +0.209821389918875575730774962243376284), (+1.04907509845266138841972379161019086, +0.507790077302775163416369425036713734), (+1.07199125256731167088056080106901572, +0.683100660014918809461107046157738372), (+1.19717429339692941313310973181222983, +0.279679120890261477933466306376290628), (+1.36902892902794563647732226279229487, +0.876248543818418990569825823020422530), (+1.55316972213111598215230923547210455, +0.897973315622071140965690506574415644), (+1.56046940996993588146527323191079702, +0.547548344839762199736224949590157744E-1), (+1.06648542084358852968629131216053253, +0.340592988280458457088502110937363077), (+1.80901752865807911317340937671917181, +0.367778944414218929313367225983894191), (+1.59272732751388438677490054218962804, +0.605635888446738057055389624278674133), (+1.91264318383032291179850262571259057, +0.712617517107640312543860614715127625), (+1.92732153765916014573220315804183012, +0.869950770970249605956049249882446078E-2), (+1.38205246294473642656248678707757806, +0.787775737090052991568077191432539860), (+1.11147788895938615332941253522396815, +0.782588311439676735638995196850616176), (+1.72390500626783453389817898849136286, +0.634764275607661367547838787276047926), (+1.21267678821664396244041428935404886, +0.860557960505171903098727212925285681), (+1.25910073501719007782675121880219375, +0.660780845745839410468844577345333515), (+1.74552339861740169041239768614835177, +0.260141805983396559325020037350256885), (+1.82313320951320389110346694631520789, +0.367873599908986662600275464732577256), (+1.51682095159969073791023096470343735, +0.129818457931234538508947941465573622), (+1.84750654972194833542254930243044767, +0.204316883264962995883838324306614164), (+1.67532229387982254306585096587442811, +0.490803097029601868105843388617692269), (+1.95857158308524974985914728661706570, +0.210121223802805299600761064820189667), (+1.20263170766427223590017766991729992, +0.245620602514179636916050628998243098)
367
368atad = getFFTR(getFFTF(data))
369atad = atad / size(atad)
370atad
371(+1.43069877795708401296076566384245343, +0.567708374219258026718250541457827693), (+1.33587421028320839056680676471553131, +0.504415809535981275624615798370274220E-1), (+1.91518590739058828380038328077852986, +0.444601705652513400892090475503388524), (+1.13270552758433338988302926125032126, +0.673359667572878718865861339840768935), (+1.63825379326778394382550395451298888, +0.630898199052444315709702946183715345), (+1.68094237954152468267124352762798869, +0.651364118325080142920573790977701789), (+1.02276666137191278713411894192918497, +0.178905542262610918962325265749225512), (+1.88706729503145876852457248728562643, +0.231206191637802120917354074598203377), (+1.10585756322521638280004984493085311, +0.943856578035116963283688580274180099), (+1.97959310627594012187458232918112010, +0.921870831065044087925432482038915113), (+1.34629001546589571267804272732337157, +0.662880000961231166287914385700207849E-1), (+1.20203993328891134525339087211542371, +0.477047024829251048087178516103558885), (+1.09307922525791438944529318602408549, +0.279954035785029127538735792266981475), (+1.07572684182162677890810465655356393, +0.526843529362970078756267990296217865), (+1.62260840254365367549274742019108242, +0.608861339116685387909187365881666390), (+1.84097006026392693430533470476377949, +0.555986147793203941920562947726322119), (+1.50095557200693345287588639118226264, +0.547607153395658460670551563707390452), (+1.48664679227504714559553697086419789, +0.733785974163873114818678087907822172E-1), (+1.17029916298445059030417793519555134, +0.967630645891482585750637332339422446), (+1.22212567556016495922440739396363419, +0.574497350314949743109733934182752914), (+1.71679152181994009860368360170147522, +0.897540858577788794496934244107916515), (+1.27494212601271317764056566005944420, +0.429830886016941225114586360760371405), (+1.90085941576879553167786071804343926, +0.577337275665098912607545290653364956), (+1.28831756042301417952904458413891109, +0.910262865458699017544133590155788758), (+1.86275835833878533681139773075736712, +0.145615573376558607987480439481153092), (+1.30777515517310508473103720196303569, +0.203259004721055060499093361341287457), (+1.22581337538272202571411458986850159, +0.815627000487484188036866970233249258), (+1.61645035827651262639271805846493368, +0.611275230875913560366711285664577590), (+1.39165082224782337623689564776238819, +0.291693750367677128844898504409579023), (+1.55654427304438594423374181096156367, +0.735704114123621206218586045786117448E-1), (+1.67867035512875393476719523716925707, +0.610058409161011402380234998130182877), (+1.00784880185615923545733202220620785, +0.618284244623375115868132890783697165), (+1.89878160003018579943398797925480542, +0.248169502096122988306629902242385036), (+1.62427575151725107743462898246635874, +0.385455172807385779389951502867228499), (+1.98982674236090491145783462032208609, +0.488752235629069588169867562174574300), (+1.44016072232203592703945576520701251, +0.363533451662160362801911866217645874), (+1.41292395560383320860057719667677689, +0.687869274881612513698887466786851209), (+1.52489662078477898303576260885784409, +0.607159860487034028472304371270830338), (+1.08041164926063344334990843614124214, +0.393798668982800650573438383357298730), (+1.00128646187512568642647680750613293, +0.466765913696669418376275360666107745), (+1.12861941859344160300942511893524150, +0.503783033479505024686639839931645686), (+1.90372841173867912254108628886151615, +0.546805103734411913506348472497095361), (+1.12607111986164183399615272849244209, +0.478725558865757423119415595073475728), (+1.19807130984446624728104703135809238, +0.682750828294737618297677686840058998), (+1.09507227961122688348275669718943609, +0.639854520160819295900675004920412684), (+1.35083455986994180126219167098019986, +0.298921918146318953763174407397168036), (+1.56442585947478084569502483198297305, +0.723749674170593150360165014929974061), (+1.15490646185522255126683034070503030, +0.855282051261224294982953529335893991), (+1.02278232092230347885216758700855907, +0.400478764597944560904753860638457632), (+1.01046013161540542996085617644327907, +0.311169731699411413131986202595259697), (+1.28231274691669286853659648830148623, +0.127296292437800985450373261237357024), (+1.29791959263169445217579874118651131, +0.877533776998572596752342794441941541), (+1.30678265241414611613566412819323920, +0.355523420105780157516338879822461156), (+1.66559307873573604974453605840248810, +0.842244177439072601948514195425420294), (+1.16147365454707695251278453765902528, +0.429024513676882698686807642278685717E-1), (+1.47932358817631530398669013255327692, +0.247842921995106466092026359370523623), (+1.38057655513342930833576832365874422, +0.448447863858482300963462256020255969), (+1.53746907860623356812544865524688106, +0.880785837243610943216392065613443556), (+1.38597590074231499450129264714963691, +0.312578425311281436456156670276738298), (+1.36830176042016872627016581359226768, +0.173973284549992886177439922044010875), (+1.43361333522049167917568215063336795, +0.538075079615719874234290327514388988), (+1.75378348018811575373451067421554023, +0.228395909363263028539995406037467824), (+1.37796147616148843125845864380077863, +0.209821389918875575730774962243376284), (+1.04907509845266138841972379161019125, +0.507790077302775163416369425036713830), (+1.07199125256731167088056080106901591, +0.683100660014918809461107046157738372), (+1.19717429339692941313310973181222983, +0.279679120890261477933466306376290724), (+1.36902892902794563647732226279229487, +0.876248543818418990569825823020422722), (+1.55316972213111598215230923547210474, +0.897973315622071140965690506574415933), (+1.56046940996993588146527323191079702, +0.547548344839762199736224949590157263E-1), (+1.06648542084358852968629131216053292, +0.340592988280458457088502110937362981), (+1.80901752865807911317340937671917161, +0.367778944414218929313367225983894287), (+1.59272732751388438677490054218962804, +0.605635888446738057055389624278674133), (+1.91264318383032291179850262571259057, +0.712617517107640312543860614715127914), (+1.92732153765916014573220315804183032, +0.869950770970249605956049249882450892E-2), (+1.38205246294473642656248678707757768, +0.787775737090052991568077191432540245), (+1.11147788895938615332941253522396796, +0.782588311439676735638995196850616368), (+1.72390500626783453389817898849136324, +0.634764275607661367547838787276048023), (+1.21267678821664396244041428935404867, +0.860557960505171903098727212925286066), (+1.25910073501719007782675121880219394, +0.660780845745839410468844577345333708), (+1.74552339861740169041239768614835177, +0.260141805983396559325020037350257078), (+1.82313320951320389110346694631520827, +0.367873599908986662600275464732577159), (+1.51682095159969073791023096470343754, +0.129818457931234538508947941465573767), (+1.84750654972194833542254930243044767, +0.204316883264962995883838324306614116), (+1.67532229387982254306585096587442850, +0.490803097029601868105843388617692318), (+1.95857158308524974985914728661706608, +0.210121223802805299600761064820189618), (+1.20263170766427223590017766991730031, +0.245620602514179636916050628998243387), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.192592994438723585305597794258492732E-33, +0.842594350669415685711990349880905702E-34), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.577778983316170755916793382775478196E-33, +0.373148926725026946529595726375829668E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, -0.361111864572606722447995864234673872E-34), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.120370621524202240815998621411557957E-33), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.433334237487128066937595037081608647E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, -0.216667118743564033468797518540804323E-33), (+0.00000000000000000000000000000000000, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (+0.962964972193617926527988971292463659E-34, +0.722223729145213444895991728469347744E-34), (-0.481482486096808963263994485646231830E-33, -0.120370621524202240815998621411557957E-33), (-0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, +0.168518870133883137142398069976181140E-33), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.722223729145213444895991728469347744E-34), (-0.288889491658085377958396691387739098E-33, -0.168518870133883137142398069976181140E-33), (+0.962964972193617926527988971292463659E-34, -0.529630734706489859590393934210855013E-33), (+0.962964972193617926527988971292463659E-34, -0.216667118743564033468797518540804323E-33), (+0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.866668474974256133875190074163217293E-33, -0.637964294078271876324792693481257174E-33), (+0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34), (-0.481482486096808963263994485646231830E-33, -0.625927231925851652243192831340101379E-33)
372reltol = sqrt(epsilon(1._TKC))
373reltol
374+0.138777878078144567552953958511352539E-16
375isClose(data, atad(1:size(data)), reltol = reltol)
376T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
377call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
378
379lenData = getUnifRand(5, 100)
380lenData
381+81
382data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
383data
384+1.94415498, +1.27908421, +1.58842158, +1.02008009, +1.80234051, +1.50651765, +1.56547809, +1.27813077, +1.22411728, +1.51565981, +1.44882536, +1.31992364, +1.83885479, +1.71575069, +1.57237113, +1.98279643, +1.03031147, +1.10592604, +1.00655890, +1.07841480, +1.64168596, +1.98328924, +1.79022813, +1.33493602, +1.29690576, +1.45482421, +1.61728287, +1.40421629, +1.20526063, +1.33306134, +1.24330497, +1.95568550, +1.35846305, +1.70133376, +1.66426587, +1.26104569, +1.09307814, +1.09145617, +1.57681394, +1.64778233, +1.33116114, +1.56897819, +1.87424517, +1.93367624, +1.48188674, +1.15770888, +1.98908043, +1.74613261, +1.91694129, +1.59131873, +1.62080657, +1.35138643, +1.81602073, +1.50349808, +1.13601279, +1.71093059, +1.73863649, +1.94506907, +1.21957123, +1.30145550, +1.23218465, +1.69224048, +1.30843687, +1.59667861, +1.56049252, +1.84831798, +1.13437510, +1.65790379, +1.85242772, +1.95094514, +1.71525264, +1.54587746, +1.41434848, +1.97343922, +1.03414202, +1.20604587, +1.30874717, +1.42448878, +1.43696332, +1.13436294, +1.29402530
385
386atad = getFFTR(getFFTF(data))
387atad = atad * 2 / size(atad)
388atad
389+1.94415498, +1.27908444, +1.58842134, +1.02008009, +1.80234027, +1.50651729, +1.56547773, +1.27813053, +1.22411728, +1.51565981, +1.44882548, +1.31992364, +1.83885503, +1.71575046, +1.57237124, +1.98279595, +1.03031158, +1.10592604, +1.00655866, +1.07841492, +1.64168572, +1.98328888, +1.79022789, +1.33493578, +1.29690564, +1.45482433, +1.61728263, +1.40421629, +1.20526052, +1.33306122, +1.24330473, +1.95568538, +1.35846305, +1.70133376, +1.66426587, +1.26104569, +1.09307826, +1.09145594, +1.57681417, +1.64778197, +1.33116102, +1.56897807, +1.87424541, +1.93367624, +1.48188686, +1.15770864, +1.98908067, +1.74613225, +1.91694140, +1.59131861, +1.62080657, +1.35138631, +1.81602049, +1.50349772, +1.13601291, +1.71093035, +1.73863614, +1.94506896, +1.21957135, +1.30145526, +1.23218417, +1.69224000, +1.30843687, +1.59667850, +1.56049252, +1.84831810, +1.13437533, +1.65790343, +1.85242796, +1.95094454, +1.71525300, +1.54587722, +1.41434836, +1.97343922, +1.03414214, +1.20604587, +1.30874753, +1.42448878, +1.43696356, +1.13436294, +1.29402542, -0.596046448E-7, +0.417232513E-6, -0.238418579E-6, +0.298023224E-6, -0.119209290E-6, +0.476837158E-6, +0.238418579E-6, +0.119209290E-6, -0.357627869E-6, +0.119209290E-6, -0.298023224E-6, +0.119209290E-6, -0.596046448E-7, +0.596046448E-7, +0.596046448E-7, -0.596046448E-7, +0.00000000, +0.00000000, +0.00000000, +0.119209290E-6, +0.00000000, +0.00000000, +0.119209290E-6, +0.00000000, -0.178813934E-6, +0.596046448E-7, +0.00000000, +0.119209290E-6, +0.596046448E-7, +0.00000000, +0.00000000, +0.298023224E-6, -0.596046448E-7, +0.119209290E-6, +0.00000000, +0.119209290E-6, +0.119209290E-6, +0.119209290E-6, +0.178813934E-6, +0.357627869E-6, -0.119209290E-6, +0.178813934E-6, +0.00000000, +0.357627869E-6, +0.178813934E-6, -0.596046448E-7, +0.596046448E-7
390reltol = sqrt(epsilon(1._TKC))
391reltol
392+0.345266977E-3
393isClose(data, atad(1:size(data)), reltol = reltol)
394T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
395call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
396
397lenData = getUnifRand(5, 100)
398lenData
399+29
400data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
401data
402+1.3068200990553982, +1.6897717648281083, +1.3886607233581918, +1.1238534102611539, +1.4641107240990308, +1.9353523179025558, +1.8870553120620510, +1.5364571575115566, +1.4351863250018746, +1.5140422441375332, +1.8327936341466731, +1.8698864569155531, +1.6495635712190138, +1.3681524460300416, +1.7775379627422696, +1.1368683933136492, +1.8411592730377424, +1.5488599399207290, +1.7341905577675667, +1.3200197859103588, +1.0576138108082311, +1.1727046802701384, +1.3161877589676436, +1.7629348810922669, +1.9065502814652966, +1.5474616952399955, +1.9754342637163287, +1.5107683524307356, +1.7347566417779101
403
404atad = getFFTR(getFFTF(data))
405atad = atad * 2 / size(atad)
406atad
407+1.3068200990553984, +1.6897717648281081, +1.3886607233581918, +1.1238534102611539, +1.4641107240990308, +1.9353523179025554, +1.8870553120620508, +1.5364571575115564, +1.4351863250018746, +1.5140422441375332, +1.8327936341466731, +1.8698864569155531, +1.6495635712190140, +1.3681524460300416, +1.7775379627422701, +1.1368683933136490, +1.8411592730377426, +1.5488599399207288, +1.7341905577675667, +1.3200197859103588, +1.0576138108082316, +1.1727046802701384, +1.3161877589676438, +1.7629348810922665, +1.9065502814652966, +1.5474616952399955, +1.9754342637163287, +1.5107683524307354, +1.7347566417779099, +0.44408920985006262E-15, +0.44408920985006262E-15, +0.44408920985006262E-15
408reltol = sqrt(epsilon(1._TKC))
409reltol
410+0.14901161193847656E-7
411isClose(data, atad(1:size(data)), reltol = reltol)
412T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
413call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
414
415lenData = getUnifRand(5, 100)
416lenData
417+10
418data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
419data
420+1.60064731254421032470245115609194372, +1.24888359815895270929667389404291578, +1.89385144280024883316752730264282918, +1.66021685853147205463779666727178130, +1.59975758669515675715491974585960125, +1.74906828464647050114474821932771519, +1.48209306748712759140015730262968864, +1.99922807547923540517595614430406726, +1.70690964266760019827337641701174373, +1.65308911877134493096194340443519192
421
422atad = getFFTR(getFFTF(data))
423atad = atad * 2 / size(atad)
424atad
425+1.60064731254421032470245115609194391, +1.24888359815895270929667389404291578, +1.89385144280024883316752730264282918, +1.66021685853147205463779666727178130, +1.59975758669515675715491974585960125, +1.74906828464647050114474821932771480, +1.48209306748712759140015730262968826, +1.99922807547923540517595614430406688, +1.70690964266760019827337641701174393, +1.65308911877134493096194340443519192, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33
426reltol = sqrt(epsilon(1._TKC))
427reltol
428+0.138777878078144567552953958511352539E-16
429isClose(data, atad(1:size(data)), reltol = reltol)
430T, T, T, T, T, T, T, T, T, T
431call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
432
433lenData = getUnifRand(5, 100)
434lenData
435+99
436data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
437data
438(+1.54138505, +0.945996404), (+1.79603469, +0.508508623), (+1.02046323, +0.423385024), (+1.11060083, +0.409858465), (+1.87171280, +0.659099817), (+1.76478601, +0.568973064), (+1.13895893, +0.878530741), (+1.39884877, +0.478551984), (+1.63056397, +0.543373406), (+1.49707758, +0.429629683), (+1.13458252, +0.333400905), (+1.73524106, +0.995658755), (+1.64652348, +0.259736955), (+1.46394300, +0.810480535), (+1.16729403, +0.898309469), (+1.21626377, +0.874126315), (+1.44361186, +0.788177013), (+1.87153459, +0.241436005), (+1.53427482, +0.412329078), (+1.29906976, +0.766397715E-1), (+1.86013913, +0.915097058), (+1.63756156, +0.386558592), (+1.07235634, +0.129427850), (+1.76280785, +0.951383114E-1), (+1.69847107, +0.578907192), (+1.44270086, +0.522758663), (+1.59763670, +0.716322660), (+1.80062413, +0.720195115), (+1.98548615, +0.154385626), (+1.16180086, +0.136611462), (+1.20537949, +0.489776015), (+1.52782357, +0.612773359), (+1.76621985, +0.387789607), (+1.18179941, +0.693538785), (+1.46752310, +0.559856236), (+1.68112099, +0.548170269), (+1.71894240, +0.877493083), (+1.44554043, +0.592851996), (+1.93456185, +0.370416224), (+1.42880273, +0.226652622E-1), (+1.30414057, +0.260276377), (+1.23578560, +0.926437378E-1), (+1.21325493, +0.874247789), (+1.48693764, +0.812987983), (+1.52642679, +0.882199764), (+1.58315015, +0.255744457E-1), (+1.16274083, +0.812072515), (+1.66961336, +0.758128285), (+1.11353612, +0.511938930E-1), (+1.33226120, +0.827137291), (+1.13691497, +0.590103686), (+1.15059352, +0.876016438), (+1.22226274, +0.303002894), (+1.53914952, +0.994927645), (+1.79966140, +0.590766013), (+1.37147164, +0.219850540E-1), (+1.33562183, +0.682580650), (+1.12151861, +0.642313361E-1), (+1.67671299, +0.121315777), (+1.44660163, +0.802019179), (+1.61163068, +0.646587014), (+1.64337790, +0.454801023), (+1.18975043, +0.713830590E-1), (+1.92231512, +0.604262471), (+1.18796551, +0.957663715), (+1.97896838, +0.399073660), (+1.70715427, +0.368958056), (+1.71531129, +0.982659876), (+1.42086959, +0.442572415), (+1.43882442, +0.442114174), (+1.46787655, +0.579666555), (+1.50271893, +0.682845354), (+1.26695263, +0.139684796), (+1.89445901, +0.316793978), (+1.60204339, +0.563884318), (+1.71124649, +0.372250140), (+1.58912170, +0.288021624), (+1.53547335, +0.988844216), (+1.20199776, +0.911979675E-1), (+1.12566447, +0.439508379), (+1.09816551, +0.183007181), (+1.33801758, +0.521480620), (+1.52634084, +0.880864859E-1), (+1.99934268, +0.206250370), (+1.06988001, +0.345053852), (+1.94645572, +0.644629419), (+1.15780926, +0.410297632), (+1.76042652, +0.139980733), (+1.83579206, +0.385152876), (+1.18723130, +0.502418995), (+1.34392786, +0.853653550), (+1.19594955, +0.584155977), (+1.72701383, +0.601609647), (+1.49748588, +0.748546243), (+1.72016585, +0.581169784), (+1.77448130, +0.152310669), (+1.24251533, +0.136646569), (+1.36995351, +0.800617039), (+1.94801188, +0.445923746)
439
440atad = getFFTR(getFFTF(data))
441atad = atad / size(atad)
442atad
443(+1.54138517, +0.945996404), (+1.79603434, +0.508508742), (+1.02046311, +0.423385084), (+1.11060047, +0.409858346), (+1.87171268, +0.659099758), (+1.76478589, +0.568972945), (+1.13895881, +0.878530681), (+1.39884853, +0.478551805), (+1.63056421, +0.543373525), (+1.49707758, +0.429629833), (+1.13458264, +0.333400905), (+1.73524082, +0.995658755), (+1.64652348, +0.259736985), (+1.46394300, +0.810480475), (+1.16729403, +0.898309529), (+1.21626353, +0.874126434), (+1.44361198, +0.788177073), (+1.87153435, +0.241436064), (+1.53427458, +0.412329048), (+1.29906940, +0.766399652E-1), (+1.86013889, +0.915096998), (+1.63756156, +0.386558771), (+1.07235646, +0.129428044), (+1.76280737, +0.951383114E-1), (+1.69847095, +0.578907371), (+1.44270062, +0.522758901), (+1.59763670, +0.716322839), (+1.80062389, +0.720195115), (+1.98548603, +0.154385850), (+1.16180086, +0.136611551), (+1.20537925, +0.489776015), (+1.52782333, +0.612773478), (+1.76621997, +0.387789488), (+1.18179929, +0.693538785), (+1.46752298, +0.559856117), (+1.68112087, +0.548170209), (+1.71894240, +0.877492785), (+1.44554031, +0.592851877), (+1.93456185, +0.370415807), (+1.42880237, +0.226650983E-1), (+1.30414069, +0.260276318), (+1.23578548, +0.926436931E-1), (+1.21325505, +0.874247551), (+1.48693752, +0.812987864), (+1.52642667, +0.882199705), (+1.58315015, +0.255742967E-1), (+1.16274095, +0.812072396), (+1.66961324, +0.758128285), (+1.11353612, +0.511938781E-1), (+1.33226097, +0.827137172), (+1.13691509, +0.590103507), (+1.15059352, +0.876016259), (+1.22226262, +0.303002894), (+1.53914964, +0.994927406), (+1.79966152, +0.590765953), (+1.37147129, +0.219850168E-1), (+1.33562171, +0.682580650), (+1.12151861, +0.642313808E-1), (+1.67671299, +0.121315733), (+1.44660139, +0.802019119), (+1.61163032, +0.646586835), (+1.64337802, +0.454801083), (+1.18975043, +0.713830739E-1), (+1.92231488, +0.604262352), (+1.18796563, +0.957663774), (+1.97896814, +0.399073631), (+1.70715415, +0.368957937), (+1.71531129, +0.982659698), (+1.42086959, +0.442572415), (+1.43882453, +0.442114025), (+1.46787655, +0.579666436), (+1.50271893, +0.682845294), (+1.26695275, +0.139684856), (+1.89445889, +0.316794187), (+1.60204351, +0.563884377), (+1.71124613, +0.372250229), (+1.58912158, +0.288021594), (+1.53547311, +0.988844156), (+1.20199776, +0.911979675E-1), (+1.12566423, +0.439508438), (+1.09816563, +0.183007181), (+1.33801723, +0.521480620), (+1.52634072, +0.880864561E-1), (+1.99934244, +0.206250295), (+1.06987977, +0.345053941), (+1.94645572, +0.644629359), (+1.15780926, +0.410297334), (+1.76042604, +0.139980540), (+1.83579195, +0.385152936), (+1.18723083, +0.502419055), (+1.34392762, +0.853653491), (+1.19594932, +0.584155858), (+1.72701359, +0.601609588), (+1.49748564, +0.748546243), (+1.72016573, +0.581169724), (+1.77448118, +0.152310714), (+1.24251544, +0.136646613), (+1.36995327, +0.800617099), (+1.94801199, +0.445923507), (+0.178813934E-6, +0.208616257E-6), (+0.00000000, +0.357627869E-6), (+0.119209290E-6, +0.327825546E-6), (+0.357627869E-6, +0.298023224E-6), (+0.119209290E-6, +0.402331352E-6), (+0.119209290E-6, +0.447034836E-7), (-0.238418579E-6, -0.745058060E-7), (+0.119209290E-6, +0.894069672E-7), (+0.00000000, -0.596046448E-7), (-0.119209290E-6, +0.596046448E-7), (-0.596046448E-7, +0.298023224E-7), (+0.596046448E-7, +0.208616257E-6), (-0.119209290E-6, +0.119209290E-6), (+0.178813934E-6, +0.104308128E-6), (-0.119209290E-6, +0.596046448E-7), (+0.357627869E-6, +0.149011612E-6), (+0.119209290E-6, +0.149011612E-6), (+0.00000000, +0.253319740E-6), (+0.119209290E-6, +0.894069672E-7), (+0.357627869E-6, +0.208616257E-6), (+0.119209290E-6, +0.201165676E-6), (+0.357627869E-6, -0.596046448E-7), (+0.119209290E-6, -0.283122063E-6), (+0.178813934E-6, -0.745058060E-7), (+0.178813934E-6, -0.119209290E-6), (+0.119209290E-6, -0.119209290E-6), (+0.119209290E-6, -0.238418579E-6), (-0.596046448E-7, +0.149011612E-7), (-0.596046448E-7, +0.596046448E-7)
444reltol = sqrt(epsilon(1._TKC))
445reltol
446+0.345266977E-3
447isClose(data, atad(1:size(data)), reltol = reltol)
448T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
449call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
450
451lenData = getUnifRand(5, 100)
452lenData
453+82
454data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
455data
456(+1.2596542376570243, +0.91579366184796407), (+1.5998467824800400, +0.85339986422456526), (+1.2312877292538844, +0.19831214162808397), (+1.8175419773612251, +0.82884860476961864E-1), (+1.2157894939980780, +0.33271876580070447), (+1.8155966238152104, +0.58605182814113754), (+1.7802134500171740, +0.10396433849536046), (+1.3067872657054669, +0.54299742601222056E-1), (+1.8267764652657970, +0.33365999272396563), (+1.7544249953708448, +0.98313068006884563), (+1.1255167922986402, +0.27246153518688887), (+1.9689706253503925, +0.56720438448949118), (+1.6025004877518456, +0.85360894019147571), (+1.2922798008994012, +0.72974530518458203), (+1.5987371970316562, +0.57259416390793083), (+1.8117630477716409, +0.31683533828221477), (+1.9103424344709858, +0.99960490637982435), (+1.9419088355178824, +0.36826614627397591), (+1.8256436285547180, +0.27673262396029907), (+1.9540506306155785, +0.85991915509574468), (+1.5833886841923337, +0.85308672015121711E-1), (+1.7507223355544876, +0.21509053516602150), (+1.0988795597456518, +0.67409988829511169), (+1.5368460160411983, +0.24110081661718963), (+1.5525154054471177, +0.48113620373094867), (+1.1861198120970915, +0.52538566436456891), (+1.9477777884665168, +0.26432891937429071), (+1.7075021516599957, +0.90132568955148684), (+1.5113792989752648, +0.81303004305128501), (+1.9099371307063340, +0.50382866577918595), (+1.1305180954812650, +0.68805728448471248), (+1.8741854371414264, +0.84817211764812928), (+1.5745141289357689, +0.42956470181776052), (+1.6585356894817831, +0.93999955367626298), (+1.8368023180559550, +0.93033947295252262), (+1.8594081754402758, +0.44704025997907282), (+1.6781788272695297, +0.34114501194585600), (+1.7164065676281730, +0.93711921741140325), (+1.9154022826448673, +0.33140273541285403), (+1.8530090282263219, +0.72677740444270655), (+1.5841617412158522, +0.26015156303131748), (+1.2938862304435168, +0.54553817150787642), (+1.5685582406667833, +0.61389594284756366), (+1.4429603481627835, +0.31410671626496889), (+1.2955177641447042, +0.58317263537091379), (+1.5746787138297127, +0.24869355507094248), (+1.1302490668163765, +0.72902169669059103), (+1.8401367779682236, +0.49884254432784769), (+1.6104370962403138, +0.38997155045180698), (+1.8977334559661001, +0.65554348975948828), (+1.6808194082376833, +0.17929381789397913), (+1.1710181117263736, +0.12059506001137077), (+1.1151552905709372, +0.94213004371730646), (+1.3825001743391003, +0.19974366654827802), (+1.7374714068186208, +0.16233802780351836), (+1.5445816639333692, +0.54510323101616320), (+1.4434046815292709, +0.91314809205170167), (+1.5910600707141729, +0.39342195272429870), (+1.7787434788438365, +0.72646209940974260), (+1.5884066030888213, +0.77619554478485819), (+1.1961499993078688, +0.71395395845071952), (+1.5980181075507507, +0.36169682856583296), (+1.1374800760054957, +0.41019319991223402), (+1.0094108481367212, +0.94065980434234331), (+1.0545349617010029, +0.66080763083860217), (+1.4347344713265295, +0.53012919446489470), (+1.4502408119999459, +0.74149215232594401), (+1.0371218957246722, +0.38462845191743145E-1), (+1.6974835343608343, +0.69302229025250406), (+1.2985868670838356, +0.46230430607753781E-1), (+1.0160256698717260, +0.21147506837068009E-1), (+1.5983271892205384, +0.96700483216570898), (+1.3498840614084444, +0.34218660452779770E-1), (+1.8456407711870337, +0.45291174359764153), (+1.7581832447847332, +0.30246738443953436), (+1.1072455121915663, +0.77818317012061788), (+1.7522874106332789, +0.47759942299553482), (+1.1862438631212600, +0.65422076359312842), (+1.3059090024385058, +0.96256950258020046), (+1.7832162088126005, +0.23204533396260707), (+1.3834730256647694, +0.34986494343774477), (+1.1380154508939828, +0.95649676553699869)
457
458atad = getFFTR(getFFTF(data))
459atad = atad / size(atad)
460atad
461(+1.2596542376570243, +0.91579366184796407), (+1.5998467824800402, +0.85339986422456537), (+1.2312877292538844, +0.19831214162808408), (+1.8175419773612256, +0.82884860476961864E-1), (+1.2157894939980778, +0.33271876580070436), (+1.8155966238152101, +0.58605182814113754), (+1.7802134500171736, +0.10396433849536058), (+1.3067872657054671, +0.54299742601222112E-1), (+1.8267764652657970, +0.33365999272396596), (+1.7544249953708446, +0.98313068006884574), (+1.1255167922986402, +0.27246153518688920), (+1.9689706253503925, +0.56720438448949151), (+1.6025004877518456, +0.85360894019147593), (+1.2922798008994012, +0.72974530518458225), (+1.5987371970316560, +0.57259416390793105), (+1.8117630477716407, +0.31683533828221488), (+1.9103424344709858, +0.99960490637982424), (+1.9419088355178826, +0.36826614627397602), (+1.8256436285547177, +0.27673262396029913), (+1.9540506306155785, +0.85991915509574457), (+1.5833886841923333, +0.85308672015121600E-1), (+1.7507223355544870, +0.21509053516602142), (+1.0988795597456518, +0.67409988829511147), (+1.5368460160411979, +0.24110081661718952), (+1.5525154054471177, +0.48113620373094867), (+1.1861198120970917, +0.52538566436456879), (+1.9477777884665168, +0.26432891937429059), (+1.7075021516599955, +0.90132568955148673), (+1.5113792989752648, +0.81303004305128512), (+1.9099371307063333, +0.50382866577918617), (+1.1305180954812650, +0.68805728448471259), (+1.8741854371414262, +0.84817211764812894), (+1.5745141289357689, +0.42956470181776035), (+1.6585356894817833, +0.93999955367626287), (+1.8368023180559550, +0.93033947295252239), (+1.8594081754402758, +0.44704025997907260), (+1.6781788272695297, +0.34114501194585578), (+1.7164065676281730, +0.93711921741140314), (+1.9154022826448673, +0.33140273541285337), (+1.8530090282263219, +0.72677740444270600), (+1.5841617412158520, +0.26015156303131748), (+1.2938862304435168, +0.54553817150787642), (+1.5685582406667833, +0.61389594284756321), (+1.4429603481627835, +0.31410671626496878), (+1.2955177641447042, +0.58317263537091346), (+1.5746787138297127, +0.24869355507094260), (+1.1302490668163765, +0.72902169669059091), (+1.8401367779682232, +0.49884254432784747), (+1.6104370962403138, +0.38997155045180670), (+1.8977334559661001, +0.65554348975948840), (+1.6808194082376833, +0.17929381789397875), (+1.1710181117263736, +0.12059506001137052), (+1.1151552905709374, +0.94213004371730602), (+1.3825001743390999, +0.19974366654827772), (+1.7374714068186206, +0.16233802780351764), (+1.5445816639333692, +0.54510323101616276), (+1.4434046815292705, +0.91314809205170122), (+1.5910600707141729, +0.39342195272429892), (+1.7787434788438368, +0.72646209940974216), (+1.5884066030888211, +0.77619554478485830), (+1.1961499993078690, +0.71395395845071907), (+1.5980181075507502, +0.36169682856583252), (+1.1374800760054957, +0.41019319991223346), (+1.0094108481367212, +0.94065980434234286), (+1.0545349617010029, +0.66080763083860217), (+1.4347344713265295, +0.53012919446489482), (+1.4502408119999459, +0.74149215232594390), (+1.0371218957246722, +0.38462845191743374E-1), (+1.6974835343608345, +0.69302229025250395), (+1.2985868670838354, +0.46230430607753781E-1), (+1.0160256698717260, +0.21147506837067620E-1), (+1.5983271892205384, +0.96700483216570943), (+1.3498840614084442, +0.34218660452779714E-1), (+1.8456407711870333, +0.45291174359764175), (+1.7581832447847332, +0.30246738443953414), (+1.1072455121915659, +0.77818317012061777), (+1.7522874106332789, +0.47759942299553454), (+1.1862438631212595, +0.65422076359312797), (+1.3059090024385058, +0.96256950258019991), (+1.7832162088126007, +0.23204533396260707), (+1.3834730256647694, +0.34986494343774471), (+1.1380154508939824, +0.95649676553699825), (+0.0000000000000000, -0.55511151231257827E-16), (+0.11102230246251565E-15, -0.38857805861880479E-15), (+0.44408920985006262E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.83266726846886741E-16), (+0.55511151231257827E-15, -0.11102230246251565E-15), (+0.55511151231257827E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.0000000000000000, -0.33306690738754696E-15), (+0.33306690738754696E-15, -0.11102230246251565E-15), (+0.44408920985006262E-15, -0.38857805861880479E-15), (+0.11102230246251565E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.33306690738754696E-15, -0.11102230246251565E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.0000000000000000, +0.16653345369377348E-15), (+0.11102230246251565E-15, -0.55511151231257827E-16), (-0.33306690738754696E-15, +0.22204460492503131E-15), (+0.33306690738754696E-15, +0.83266726846886741E-16), (-0.11102230246251565E-15, +0.41633363423443370E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.0000000000000000, +0.44408920985006262E-15), (+0.0000000000000000, +0.27755575615628914E-16), (-0.11102230246251565E-15, +0.55511151231257827E-16), (-0.11102230246251565E-15, +0.16653345369377348E-15), (+0.22204460492503131E-15, -0.11102230246251565E-15), (+0.0000000000000000, +0.27755575615628914E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.27755575615628914E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.11102230246251565E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.49960036108132044E-15), (+0.33306690738754696E-15, -0.13877787807814457E-15), (-0.22204460492503131E-15, +0.33306690738754696E-15), (+0.22204460492503131E-15, +0.47184478546569153E-15), (+0.22204460492503131E-15, +0.72164496600635175E-15), (+0.33306690738754696E-15, +0.38857805861880479E-15), (+0.33306690738754696E-15, +0.55511151231257827E-16), (+0.55511151231257827E-15, +0.13877787807814457E-15), (+0.22204460492503131E-15, +0.44408920985006262E-15), (+0.44408920985006262E-15, -0.55511151231257827E-16), (+0.11102230246251565E-15, +0.49960036108132044E-15), (+0.22204460492503131E-15, +0.77715611723760958E-15), (+0.11102230246251565E-15, +0.99920072216264089E-15), (+0.55511151231257827E-15, +0.49960036108132044E-15)
462reltol = sqrt(epsilon(1._TKC))
463reltol
464+0.14901161193847656E-7
465isClose(data, atad(1:size(data)), reltol = reltol)
466T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
467call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
468
469lenData = getUnifRand(5, 100)
470lenData
471+88
472data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
473data
474(+1.66938585389516877297479870022648681, +0.423196604178017814096880716873184012), (+1.31373582976140344004508963183048519, +0.247491585361112711190579985744545562), (+1.98399385821695735229442321489175799, +0.770598207393928471852811813862102489), (+1.08019876485437519477682962958193492, +0.224345236141813622621036361108701220), (+1.03993371656100921352701159659152519, +0.799462807863667776772061815285037585), (+1.31364149188571152176944266318279160, +0.527519010072178767746608449398081259), (+1.34912046135679333362086583286951492, +0.914072165294591919496926822903622363E-1), (+1.36293012538174742019562295148947809, +0.594693724330202355450768355757929326), (+1.21189179028209482553493728049410151, +0.214325637641596595571244732663957587), (+1.74185773086693693508884583579609474, +0.987830735358993275508884298411840707), (+1.51640998856726581139303965135526405, +0.702641649942514656186530376452883028E-1), (+1.68814381988235793657919103783479227, +0.499995549569073304713602748803793391), (+1.47639791777177675095354368827033941, +0.785170852464845390978130688143242275), (+1.57140885561700981417270177255174411, +0.967627847824110231993363732808281669), (+1.54274791080517316741612305810449206, +0.827438483194479441133741906361105779), (+1.93600039912713687377975750151272881, +0.282237374299017203639996581609690443), (+1.16055744942267618601125393588499468, +0.264682152701794202374752655677262094), (+1.57810227883877421528834030991019938, +0.462171713084260443545895768724967242E-1), (+1.04968855060286095085353455096155441, +0.565322362218767429285303128358081638), (+1.98903044687968471950121978882802802, +0.251693573403703025738458256660290836), (+1.81023076318555156235869017681334538, +0.701485793286235840384245530177458543E-2), (+1.67529346630404348024452245906117788, +0.500318549671027857795504633061849562), (+1.51632675374699585652262437941735394, +0.343727334008324422079660885953020787), (+1.23344200062337430046542211612119878, +0.158070187402077349481098757548279075), (+1.39850627593983983169246989303355764, +0.354050652549219472120558304306230331), (+1.23204021939667337336143057946605289, +0.675476255781476257366215327742029350), (+1.41271094857641024709632344809665426, +0.437368541193459792849549452323998814), (+1.24057247765615441295296720882752205, +0.519452180744143317555147864405157176), (+1.44786791496557704607654334345148586, +0.873198469201689582749833598322360290), (+1.28838222621437357267378727009210520, +0.957639880235735938299153510038025853), (+1.44321303995277498086294197906025859, +0.740198858217398906237562300841701747), (+1.00684835188244970246019209133946259, +0.757317862723357577886364114636796419), (+1.96901766294545681703731410239478766, +0.469092375109422355199554146563372417), (+1.90776590247806919199133055705551316, +0.207151933175147387117630077228713958), (+1.99582120379884720733118093385140090, +0.146986346653559568493318377417833610), (+1.82578878762782406168452399617622715, +0.855568280102510789106520802398805829), (+1.17455513713091698489516672518639307, +0.890559065896460589702277691996496721), (+1.56967834534730684269362095429304461, +0.528278447846411356803304239092120391), (+1.07392846163574705180897386357496798, +0.284360141396318122545130537957553598E-1), (+1.28270147053078484673069290149231399, +0.353979082943795887989480231941069708), (+1.71216641872878192825554300344339155, +0.188933797515192690780943531392801460), (+1.20115137369558071757402974472028298, +0.640015516945941554582005539591445352), (+1.03674393783639982061199202974458732, +0.807608005389419132015132923510467406), (+1.07549754370140791900440909604039132, +0.480988516538886115604191322867805019), (+1.15765812436150035710573970809514797, +0.525075766543073329767902327239576815E-1), (+1.44707049408376550206018469638929455, +0.253857719894412254352628443349774959), (+1.94168353798342227569933705279530055, +0.356286655912388413157472214747518136), (+1.31204083545865830696420670856139968, +0.717597967471181043514540733813700506), (+1.94544577345025331374430975076151032, +0.800108397850593827837591563056018428E-1), (+1.84568462920659118442386105881758143, +0.501378164475172686930193110383452881E-2), (+1.31840811423265076323781234113748490, +0.760228289943027308940834654545683605), (+1.82024482886466052839629643305081535, +0.978901288125764584210983649486714441), (+1.29926035478778208636413675962495317, +0.432213429593117972889453847074985480), (+1.78627112145711709730047847928839839, +0.411412087485504052622669233816134736), (+1.75074822265563674997304091019303251, +0.397580943317645810657765618251234420), (+1.75851448107386451458846227357585093, +0.921097230208794833043961610032754625), (+1.16017903655756770078598689441719237, +0.343845695221151377811446820612085919), (+1.99292360406124219193954579130054586, +0.486767917813114888680900567438177872E-1), (+1.08510260065957437320599458210510857, +0.352030278725040806791982588378641824), (+1.25926931871301146471291263033567129, +0.380676681618682006922597356558722818), (+1.16447501040878935681842194831740607, +0.249232256499615265081525556747464505), (+1.51190135773891122675460058938182560, +0.246331607518551237593064765760509395), (+1.47607555360121304175820355588868499, +0.531432968454433007346184303633695358), (+1.08752803128303431498300651764317523, +0.178433164590270005612707534590147944), (+1.16088460244884080950867635250648534, +0.440783749925158464288540530099422010), (+1.01253840484112397586857956663127765, +0.880809712121033879700832207434267540), (+1.03070837945995734245154460752456529, +0.989529474823430899776478818976711637), (+1.95467889735166357280778809425698249, +0.733181344176142041726009127225905975), (+1.33803068338665421706185006269453615, +0.118290887527014855868445917251284416), (+1.87448597562546031581229599129112348, +0.580847088612248773909925722441141931), (+1.19343363841260904358755051557896679, +0.377246032984290198624579720649005689), (+1.74722699582184291231366555768443519, +0.407184284052165637003690644240719732), (+1.21518066884894046376567075688093764, +0.381446458171004068106200100468054170), (+1.26540498144437926944092748816266024, +0.364004432043331959797857561131142762), (+1.53528491519776572465682685391003121, +0.865257685770687689604798336393687246), (+1.62468923200792565491855325959987632, +0.139266674203340847132181064245467423E-1), (+1.12415464090626297548555282957055842, +0.888678164767036807651676384261572298), (+1.05336539138956443912162220415159567, +0.214808149554824015503799766008913932), (+1.71325390195179105022507072727049944, +0.752921487105302094790718746864767402), (+1.21671981854780714125973990246065346, +0.305377763730082601666915116566368777), (+1.16972091437824261072854912696874367, +0.177932696733422961557292630418029933), (+1.06908588080710658051690553340432857, +0.944549216734977023681280492362101525), (+1.76645041996033565248749642436814173, +0.978933943549141243121130189719184103), (+1.95749285868814018376937308272800369, +0.845766377157974593413501290614279225), (+1.86532739057634740207617804722342916, +0.709538315761526620693527085114752108), (+1.96203724920598416500599672586689050, +0.879888129678987407557130441070892836), (+1.31733549745739675120151165235596056, +0.140894324506519288260388381140994508), (+1.44410333481324771996946695762521550, +0.611229302099739018435920042548897625)
475
476atad = getFFTR(getFFTF(data))
477atad = atad / size(atad)
478atad
479(+1.66938585389516877297479870022648662, +0.423196604178017814096880716873183964), (+1.31373582976140344004508963183048538, +0.247491585361112711190579985744545273), (+1.98399385821695735229442321489175818, +0.770598207393928471852811813862102585), (+1.08019876485437519477682962958193511, +0.224345236141813622621036361108700883), (+1.03993371656100921352701159659152519, +0.799462807863667776772061815285037489), (+1.31364149188571152176944266318279141, +0.527519010072178767746608449398081163), (+1.34912046135679333362086583286951473, +0.914072165294591919496926822903620196E-1), (+1.36293012538174742019562295148947809, +0.594693724330202355450768355757928940), (+1.21189179028209482553493728049410151, +0.214325637641596595571244732663957418), (+1.74185773086693693508884583579609494, +0.987830735358993275508884298411840804), (+1.51640998856726581139303965135526424, +0.702641649942514656186530376452882546E-1), (+1.68814381988235793657919103783479246, +0.499995549569073304713602748803793391), (+1.47639791777177675095354368827033941, +0.785170852464845390978130688143242179), (+1.57140885561700981417270177255174430, +0.967627847824110231993363732808281862), (+1.54274791080517316741612305810449226, +0.827438483194479441133741906361105779), (+1.93600039912713687377975750151272900, +0.282237374299017203639996581609690491), (+1.16055744942267618601125393588499468, +0.264682152701794202374752655677261997), (+1.57810227883877421528834030991019919, +0.462171713084260443545895768724965798E-1), (+1.04968855060286095085353455096155421, +0.565322362218767429285303128358081734), (+1.98903044687968471950121978882802840, +0.251693573403703025738458256660290596), (+1.81023076318555156235869017681334538, +0.701485793286235840384245530177434469E-2), (+1.67529346630404348024452245906117827, +0.500318549671027857795504633061849273), (+1.51632675374699585652262437941735394, +0.343727334008324422079660885953020546), (+1.23344200062337430046542211612119916, +0.158070187402077349481098757548279075), (+1.39850627593983983169246989303355764, +0.354050652549219472120558304306230427), (+1.23204021939667337336143057946605309, +0.675476255781476257366215327742029446), (+1.41271094857641024709632344809665426, +0.437368541193459792849549452323999007), (+1.24057247765615441295296720882752205, +0.519452180744143317555147864405157368), (+1.44786791496557704607654334345148586, +0.873198469201689582749833598322360386), (+1.28838222621437357267378727009210540, +0.957639880235735938299153510038025949), (+1.44321303995277498086294197906025936, +0.740198858217398906237562300841701747), (+1.00684835188244970246019209133946278, +0.757317862723357577886364114636796515), (+1.96901766294545681703731410239478766, +0.469092375109422355199554146563372514), (+1.90776590247806919199133055705551355, +0.207151933175147387117630077228713910), (+1.99582120379884720733118093385140090, +0.146986346653559568493318377417833802), (+1.82578878762782406168452399617622754, +0.855568280102510789106520802398806021), (+1.17455513713091698489516672518639307, +0.890559065896460589702277691996496913), (+1.56967834534730684269362095429304500, +0.528278447846411356803304239092120487), (+1.07392846163574705180897386357496798, +0.284360141396318122545130537957553116E-1), (+1.28270147053078484673069290149231399, +0.353979082943795887989480231941069708), (+1.71216641872878192825554300344339155, +0.188933797515192690780943531392801701), (+1.20115137369558071757402974472028317, +0.640015516945941554582005539591445545), (+1.03674393783639982061199202974458732, +0.807608005389419132015132923510467695), (+1.07549754370140791900440909604039113, +0.480988516538886115604191322867805212), (+1.15765812436150035710573970809514816, +0.525075766543073329767902327239578741E-1), (+1.44707049408376550206018469638929494, +0.253857719894412254352628443349774863), (+1.94168353798342227569933705279530132, +0.356286655912388413157472214747517943), (+1.31204083545865830696420670856139987, +0.717597967471181043514540733813700603), (+1.94544577345025331374430975076151070, +0.800108397850593827837591563056019150E-1), (+1.84568462920659118442386105881758200, +0.501378164475172686930193110383443251E-2), (+1.31840811423265076323781234113748490, +0.760228289943027308940834654545683797), (+1.82024482886466052839629643305081573, +0.978901288125764584210983649486714344), (+1.29926035478778208636413675962495317, +0.432213429593117972889453847074985480), (+1.78627112145711709730047847928839916, +0.411412087485504052622669233816134977), (+1.75074822265563674997304091019303289, +0.397580943317645810657765618251234228), (+1.75851448107386451458846227357585112, +0.921097230208794833043961610032754817), (+1.16017903655756770078598689441719217, +0.343845695221151377811446820612086112), (+1.99292360406124219193954579130054644, +0.486767917813114888680900567438177631E-1), (+1.08510260065957437320599458210510876, +0.352030278725040806791982588378641632), (+1.25926931871301146471291263033567148, +0.380676681618682006922597356558722818), (+1.16447501040878935681842194831740646, +0.249232256499615265081525556747464842), (+1.51190135773891122675460058938182599, +0.246331607518551237593064765760509467), (+1.47607555360121304175820355588868537, +0.531432968454433007346184303633695550), (+1.08752803128303431498300651764317543, +0.178433164590270005612707534590148017), (+1.16088460244884080950867635250648515, +0.440783749925158464288540530099421962), (+1.01253840484112397586857956663127785, +0.880809712121033879700832207434267636), (+1.03070837945995734245154460752456510, +0.989529474823430899776478818976711541), (+1.95467889735166357280778809425698288, +0.733181344176142041726009127225906071), (+1.33803068338665421706185006269453615, +0.118290887527014855868445917251284031), (+1.87448597562546031581229599129112348, +0.580847088612248773909925722441142124), (+1.19343363841260904358755051557896679, +0.377246032984290198624579720649005592), (+1.74722699582184291231366555768443557, +0.407184284052165637003690644240719635), (+1.21518066884894046376567075688093725, +0.381446458171004068106200100468054363), (+1.26540498144437926944092748816266005, +0.364004432043331959797857561131142954), (+1.53528491519776572465682685391003121, +0.865257685770687689604798336393687631), (+1.62468923200792565491855325959987652, +0.139266674203340847132181064245470553E-1), (+1.12415464090626297548555282957055842, +0.888678164767036807651676384261572491), (+1.05336539138956443912162220415159547, +0.214808149554824015503799766008914076), (+1.71325390195179105022507072727049963, +0.752921487105302094790718746864767594), (+1.21671981854780714125973990246065326, +0.305377763730082601666915116566369018), (+1.16972091437824261072854912696874405, +0.177932696733422961557292630418030005), (+1.06908588080710658051690553340432857, +0.944549216734977023681280492362101717), (+1.76645041996033565248749642436814173, +0.978933943549141243121130189719184199), (+1.95749285868814018376937308272800407, +0.845766377157974593413501290614279418), (+1.86532739057634740207617804722342954, +0.709538315761526620693527085114752108), (+1.96203724920598416500599672586689088, +0.879888129678987407557130441070893125), (+1.31733549745739675120151165235596075, +0.140894324506519288260388381140994460), (+1.44410333481324771996946695762521608, +0.611229302099739018435920042548897914), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, +0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, -0.168518870133883137142398069976181140E-33), (-0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, -0.722223729145213444895991728469347744E-34), (-0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.216667118743564033468797518540804323E-33), (-0.577778983316170755916793382775478196E-33, -0.240741243048404481631997242823115915E-33), (-0.385185988877447170611195588516985464E-33, -0.433334237487128066937595037081608647E-33), (-0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.385185988877447170611195588516985464E-33, -0.337037740267766274284796139952362281E-33), (-0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000), (-0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, +0.722223729145213444895991728469347744E-34), (-0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33), (-0.288889491658085377958396691387739098E-33, +0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.264815367353244929795196967105427506E-33), (-0.288889491658085377958396691387739098E-33, -0.216667118743564033468797518540804323E-33), (+0.962964972193617926527988971292463659E-34, -0.361111864572606722447995864234673872E-33), (-0.385185988877447170611195588516985464E-33, -0.553704859011330307753593658493166604E-33), (+0.00000000000000000000000000000000000, -0.276852429505665153876796829246583302E-33), (-0.481482486096808963263994485646231830E-33, -0.457408361791968515100794761363920238E-33), (+0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, -0.361111864572606722447995864234673872E-33)
480reltol = sqrt(epsilon(1._TKC))
481reltol
482+0.138777878078144567552953958511352539E-16
483isClose(data, atad(1:size(data)), reltol = reltol)
484T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
485call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
486
487lenData = getUnifRand(5, 100)
488lenData
489+45
490data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
491data
492+1.68096030, +1.40869939, +1.71634805, +1.00119233, +1.07176161, +1.51765776, +1.08052516, +1.82428288, +1.29965317, +1.64199173, +1.39052689, +1.85639274, +1.48591113, +1.54439878, +1.33004308, +1.87831390, +1.56516528, +1.21093059, +1.21039331, +1.46700239, +1.35259438, +1.33725333, +1.26584136, +1.89364922, +1.08804667, +1.86658788, +1.70803499, +1.70947051, +1.25058579, +1.99061954, +1.10757399, +1.88930416, +1.38898027, +1.57805598, +1.96750259, +1.67072988, +1.76910329, +1.25286055, +1.70662975, +1.18190312, +1.00857139, +1.59471059, +1.76936698, +1.97452116, +1.93456566
493
494atad = getFFTR(getFFTF(data))
495atad = atad * 2 / size(atad)
496atad
497+1.68096042, +1.40869939, +1.71634793, +1.00119245, +1.07176185, +1.51765776, +1.08052492, +1.82428288, +1.29965317, +1.64199185, +1.39052689, +1.85639286, +1.48591125, +1.54439878, +1.33004284, +1.87831390, +1.56516528, +1.21093059, +1.21039319, +1.46700239, +1.35259449, +1.33725357, +1.26584125, +1.89364934, +1.08804655, +1.86658788, +1.70803475, +1.70947051, +1.25058579, +1.99061954, +1.10757399, +1.88930416, +1.38898039, +1.57805598, +1.96750259, +1.67072999, +1.76910353, +1.25286055, +1.70662975, +1.18190312, +1.00857151, +1.59471059, +1.76936710, +1.97452116, +1.93456566, +0.238418579E-6, +0.596046448E-7, +0.119209290E-6, +0.00000000, +0.178813934E-6, -0.596046448E-7, +0.238418579E-6, +0.119209290E-6, +0.00000000, -0.238418579E-6, +0.119209290E-6, +0.238418579E-6, +0.298023224E-6, +0.178813934E-6, +0.298023224E-6, +0.298023224E-6, +0.119209290E-6, -0.596046448E-7, +0.178813934E-6
498reltol = sqrt(epsilon(1._TKC))
499reltol
500+0.345266977E-3
501isClose(data, atad(1:size(data)), reltol = reltol)
502T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
503call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
504
505lenData = getUnifRand(5, 100)
506lenData
507+9
508data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
509data
510+1.7100185734142985, +1.1121358560925076, +1.0497708794875202, +1.0325160597711101, +1.5960981403548404, +1.8243932928746771, +1.6874634794250867, +1.8514582877238737, +1.7069897938936123
511
512atad = getFFTR(getFFTF(data))
513atad = atad * 2 / size(atad)
514atad
515+1.7100185734142985, +1.1121358560925076, +1.0497708794875202, +1.0325160597711105, +1.5960981403548404, +1.8243932928746769, +1.6874634794250865, +1.8514582877238728, +1.7069897938936123, -0.22204460492503131E-15, +0.33306690738754696E-15, -0.44408920985006262E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.33306690738754696E-15
516reltol = sqrt(epsilon(1._TKC))
517reltol
518+0.14901161193847656E-7
519isClose(data, atad(1:size(data)), reltol = reltol)
520T, T, T, T, T, T, T, T, T
521call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
522
523lenData = getUnifRand(5, 100)
524lenData
525+27
526data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
527data
528+1.89236562629441327000254865107557322, +1.21713430751480261865874097281322426, +1.31172055446207509300219901715218334, +1.18505121731470813370970376197975319, +1.12543936814516636186063979652138898, +1.43114565484981762345427143578497532, +1.87744220862689584523436865453751963, +1.51665147471402280495774274126801505, +1.11035088676129277178429188028502733, +1.81029607735115480350700542613213596, +1.79494370983974953136357943960789019, +1.55002689635297923817829951359914432, +1.30330164049546153674934048287613486, +1.86238501245678064193536233730833634, +1.49417305207824807647962630691861358, +1.73372480889756256336412622855206082, +1.03377894632154326260758900673469616, +1.83106832874614414164493243874321088, +1.05469726027921123203270236243834432, +1.59769425905348564930990594049444388, +1.97221360615710070406073110490852701, +1.42350226926719333302543256853373118, +1.11194520562873526504815077126641828, +1.62838871933760884639460496648975389, +1.43959659496201579852977980528840927, +1.98492686895375144826746043046209411, +1.37307842104704747174830616901461190
529
530atad = getFFTR(getFFTF(data))
531atad = atad * 2 / size(atad)
532atad
533+1.89236562629441327000254865107557283, +1.21713430751480261865874097281322406, +1.31172055446207509300219901715218334, +1.18505121731470813370970376197975281, +1.12543936814516636186063979652138841, +1.43114565484981762345427143578497570, +1.87744220862689584523436865453751944, +1.51665147471402280495774274126801505, +1.11035088676129277178429188028502694, +1.81029607735115480350700542613213615, +1.79494370983974953136357943960789057, +1.55002689635297923817829951359914451, +1.30330164049546153674934048287613505, +1.86238501245678064193536233730833691, +1.49417305207824807647962630691861358, +1.73372480889756256336412622855206082, +1.03377894632154326260758900673469597, +1.83106832874614414164493243874321088, +1.05469726027921123203270236243834413, +1.59769425905348564930990594049444368, +1.97221360615710070406073110490852682, +1.42350226926719333302543256853373138, +1.11194520562873526504815077126641809, +1.62838871933760884639460496648975351, +1.43959659496201579852977980528840927, +1.98492686895375144826746043046209431, +1.37307842104704747174830616901461190, -0.770371977754894341222391177033970927E-33, -0.770371977754894341222391177033970927E-33, +0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33
534reltol = sqrt(epsilon(1._TKC))
535reltol
536+0.138777878078144567552953958511352539E-16
537isClose(data, atad(1:size(data)), reltol = reltol)
538T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
539call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
540
541
Test:
test_pm_fftnr


Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.
Copyright
Computational Data Science Lab
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 611 of file pm_fftnr.F90.

The documentation for this interface was generated from the following file: